Bl 

J •« SEQ 000 

KIJll-B DIAGNOSTIC MACRO Y0S.02 Friday 29-Mar-85 12:53 Pag« 2 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
10 
19 
20 
21 
22 
23 
24 
25 
26 
27 
20 
29 
30 
31 
32 
33 
34 
35 
36 
37 
30 
39 
40 
41 
42 
43 



.REM 



PRODUCT CODE 
PRODUCT NAME 
PRODUCT DATE 
MAINTAINER: 



IDENTIFICATION 
AC T875C-MC 

COKTACO KTJll B DIAGNOSTIC 
MARCH. 1985 

SMALL SYSTEMS DIAGNOSTIC ENGINEERING 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE UITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBi ITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

NO RESPONSIBLITY IS ASSUMED FOR THE USE OR RELIABILITY OF SOFTWARE ON 
EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED COMPANIES. 

COPYRIGHT (C): 1984. 1985 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 



DIGITAL 
DEC 



PDP 
DECUS 



UNIBUS 
DECTAPE 



MASSBUS 
DECX/11 
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SEQ 0003 



67 
68 
69 



70 1. ABSTRACT 
71 

72 The following diagnostic tests the Unibus Adapter CUBA) module, KTJll-B. 

73 The functionality of the module is: Unibus - PMI bus adapter (where PMI !• 

74 a faster version of a Q22-bus), n9312 compatible boot facility, and the Unibus 

75 Hap logic. The module also has a DMA cache store, utilised for doing DMA 

76 transfers from memory to Unibus devices. The U6A can be progranncd to do 

77 diagnostic cycles to verify some of the functionality without requiring 
70 any of the jeriphirals to be actually connected to the Unibus. 

"9 
80 

81 2. RUN- TIME REQUIREMENTS 

82 

83 This diagnostic is the only one written specifically for the USA module. 

84 Therefore, depending on the environment in which the program is run. different 

85 devices can be used. 
86 

87 Minimum hardware needed to run the diagnostic: 
88 

89 1) KDJll-B CPU module 

90 2) at least 2eK of memory 

91 3) KTJll-B UBA module 

92 4) console termi"^! 

93 5) load media 
94 

95 To do further functional verification of the module 2 Unibus Exercisers CUBE) 

96 are required. This should be done In manufacturing or any other environment that 

97 needs verification of ALL functions of the UBA. 
98 



El 
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SEQ 0004 



100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 

lis 

114 

115 
116 
117 

lis 

119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 



3. 



STARTING PROCEDURE 



The diagnostic is a standart XXDP program with APT interface. Therefore. in 
stanalone mode, after booting the system, typing in: 

R OKTAB? 

Mill start the program, which will then promt the operator for the software 
register switch setting desribed below. 

COKTABO KTJll-B DIAGNOSTIC 

SUR - XXXXXX NEU - 

Where "XXXXXX" correspond to the old setting of the software switch register. 
At this point an operator can either type in a carriage return, which would 
leave the software switch register as it was, or change it, according to the 
following parameters. 

OPERATIONAL SWITCH SETTINGS 



THE SWITCH SETTINGS ARE: 



SW<15>=1. 
SW<14>«1. 
SW<13>«1. 
SW<11>-1. 
SW<10>»1. 
SW<9>-1, . 
SW<8>-1. . 



For example: 

SWR 



000000 



OCTAL 

100000 
40000 
20000 
4000 
2000 
1000 
400 



NEW - 100000 



MEANING 



HALT ON ERROR 
LOOP ON CURRENT TEST 
INHIBIT ERROR TYPEOUTS 
INHIBIT ITERATIONS 
RING TTY BELL ON ERROR 
LOOP ON ERROR 

LOOP ON TEST SPECIFIED IN SW<5> 
THRU SW<0> 



In this case the old software switch register didn't set ary flags, 
new setting will make the diagnostic halt on error. 



The 



If ran from a UFD chain file, the diagnostic is fully under control of 
th<: UFD monitor that will report only PASS/FAIL messages. 
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SEQ 0005 



146 4. ERROR REPORTS 

147 

140 If ran in standalone mode, the diagnostic reports all errors to a functional 

149 level and then continues. Failing program counter, test number, and error 

150 number are printed out for all errors. Where possible expected and received 

151 data are also provided. 

152 Refer to OPERATIONAL SWITCH SETTINS if anything different is required. 
153 

154 Example of error printout: 
155 

156 ERROR IN THE n9312 BOOT ROM SECTION 

157 TEST ERROR ERROR 

158 « PC « 

159 33 12650 31 
160 

161 5. EXECUTION TIME 

162 

163 The diagnostic runs a full pass in less than a minute. 
164 

165 6. UBA REGISTER DEFINITION 

166 

167 DOR The Diagnostic Data register is a buffer that provides the ability of 

168 reading and writing the data to and from memory in diagnostic mode. 
169 

170 DCSR The Diagnostic Control and Status register provides means of going in 

171 and out of standalone mode and also of initiating diagnostic OATI from 

172 memory cycles. 
173 

174 KMCR The KTJll-B Memory Configuration register identifies the amount of 

175 Unibus memory persent in the system. It is also responsible for 

176 controllling and describing the status of the DMA cache. 
177 
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SEQ 0006 



179 




7 . 


TESTS LIS 


180 








181 






TEST 1 


182 






TEST 2 


183 






TEST 3 


184 






TEST 4 


185 






TcST 5 


186 






TEST 6 


187 






TEST 7 


188 






TEST 8 


189 






T r r* X A 

TEST 9 


190 






TEST 10 - 


191 






TEST 11 - 


192 






TEST 12 - 


193 






TCP T « T 

TEST 13 - 


194 






TEST 14 - 


195 






TEST 13 - 


196 






TEST io - 


197 






TCC T IT 

lESI 17 - 


198 






TEST IB - 


199 






TCCT 1 Q 

1E5T I'i - 


200 






TCCT OA 

TEST d\> - 


A « 

201 






TCCl 01 


202 






TCCT OO 

lESI ce - 


203 






TCCT OT 

lESI do - 


204 






TCCT OA 


'«AC 

205 






TCCT 


206 






TCCT 0<i 
lESl CO - 


207 






TCCT D7 
1 CO 1 C 1 - 


AAA 

208 






TCCT aft _ 
1 ca 1 cO - 


AAA 

209 






TFCT 3Q - 


210 






TCCT *xn 


211 






TCCT ^1 

leal oi - 


212 






TCCT X3 

1 ca 1 oc ~ 


213 






TCCT _ 

leal od 


214 






TCCT 

1 ca 1 ■5*' - 


215 






TCCT 

1 ca 1 03 


216 






TCCT Tfc 

1 ca 1 OD 


217 






TCCT T"7 

1 ca 1 3 f - 


218 






TCCT Tft 

leal oo - 


219 






TCCT 

1 ca 1 


220 






TCCT Aft 

1 ca 1 **u 


221 






TCCT ^1 

Itai - 


^ A 

222 






TCCT AO 

leal «»c - 


223 






TCCT AT 

1 ea 1 J - 


224 






TCCT AA 

1 ea 1 


225 






TCCT A^ 

1 Ea 1 *» J 


CCD 






1 ca 1 •♦D 


227 






TEST 47 - 


228 






TEST 48 


229 






TEST 49 - 


230 






TEST 50 - 


231 






TEST 51 - 


232 






TEST 52 - 


233 






TEST 53 - 


234 






TEST 54 - 


235 









UNIBUS MAP REGISTER TESTS 
UNIBUS MAP REGISTER BIT PATTERN 
UNIBUS MAP REGISTER ADDRESS UNIQUENESS 

UNIQENESS BETWEEN LOU MAP REGISTERS AND HIGH MAP REGISTERS 

DCSR REGISTER RESPONSE TEST 

KMCR BITS TEST 

UNIBUS TIMEOUT TEST 

DATA OUT WITHOUT RELOCATION 

DATA IN WITHOUT RELOCATION 

CONTENT OF DDR 

INDIRECT ACCESSING OF UNIBUS MAP REGISTERS 

DISABLING OF THE MAPPING REGISTERS 

NXM MEMORY TIMEOUT 

CARRY PROPOGATION TEST 

EXTENSIVE CARRY PROPOGATION TEST 

ALU TEST 

MAIN MEMORY DISABLE 

CACHE PRESENCE 

CACHE DISABLED AND KMCR 

AVAILABILITY OF SETS 

DEALLOCATION OF SETS 

CACHE WITH RELOCATION DISABLED 

WRITE CYCLES AND CACHE 

DMA READ WITH INDEX NOT ZERO 

TAG REGISTERS 

CACHE RAM BIT PATTERN TEST 

BOOT ROMS TEST 

UNIBUS MEMORY TEST 

USE AUTOSIZING ROUTINE 

NPG ARBITRATION 

NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 
BR7-BR4 ARBITRATION 

ARBITRATION BETWEEN INTERRUPTS AND PIRQ'S 
ARBITRATION BETWEEN INTERRUPTS FROM 2 UBE 
POWER DOWN TEST 
WRONG PARITY TEST 
NO SACK TIMEOUT 
NO INTERRUPT TEST 
UNIBUS DEVICE DATO CYCLE 
UNIBUS DEVICE DATI CYCLE 

UNIBUS DEVICE DATO CYCLE WITH RELOCATION ENABLED 

UNIBUS DEVICE DATI CYCLE WITH RELOCATION ENABLED 

ALU TEST USING UBE 

CARRY PROPOGATION TEST USING UBE 

NXM TEST USING UBE 

RELOCATION WITH UNIBUS MEMORY 

MAIN MEMORY DISABLE THRU UBE 

UNIBUS DEVICE DATOB CYCLE 

UNIBUS DEVICE DATIP CYCLE 

UNIBUS DEVICE I/O PAGE READ CYCLE 

UNIBUS DEVICE I/O PAGE WRITE CYCLE 

MAPPING REGISTERS TEST USING UBE 

UNIBUS DEVICE DATI CYCLE WITH CACHE ENABLED 

WRONG PARITY AND CACHE 
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SEQ 0007 



237 
238 
260 
271 
272 
273 
274 



275 



277 



167400 
000300 



000001 



001100 
104000 
000004 

000011 
000012 
000015 
000200 
177776 
177776 
177774 
177772 
177570 
177570 

000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 

000000 



«SUR- 167400 

«SURMK'300 
.TITLE KTJll-B DIAGNOSTIC 
♦COPYRIGHT (C) MAY 83 
♦DIGITAL EQUIPMENT CORP. 
♦MAYNARD. MASS. 01754 
♦ 

♦PROGRAM BY DIAG. ENG. 
♦ 

♦THIS PROGRAM UAS ASSEMBLED USING THE PDP 11 MAINDEC SYSMAC 

♦PACKAGE (MAINDEC-11-DZQAC-C8), OCT, 1982. 

♦ 



♦ TN-1 






.SBTTL 


OPERATIONAL 


SWITCH SETTINGS 


!* 

:* 


SWITCH 


USE 


s* 
;* 


15 


HALT ON ERROR 


i* 


14 


LOOP ON TEST 


!* 


13 


INHIBIT ERROR TYPEOUTS 


;* 


11 


INHIBIT ITERATIONS 


!* 


10 


BELL ON ERROR 


!* 


9 


LOOP ON ERROR 


8* 


8 


LOOP ON TEST IN SWR<5:0> 


.SBTTL 


BASIC DEFINITIONS 



{♦INITIAL ADDRESS OF THE STACK POINTER ♦♦♦ 1100 ♦♦♦ 
STACK- 1100 

ERROR- EMT j (BASIC DEFINITION OF ERROR CALL 

SCOPE- lOT ssBASIC DEFINITION OF SCOPE CALL 

! ♦MISCELLANEOUS DEFINITIONS 



HT = 
LF- 
CR- 
CRLF- 
PS- 
PSW- 
STKLMT- 
PIRQ- 
DSWR- 
DDISP- 



11 
12 
15 
200 

177776 
PS 

177774 
177772 
177570 
177570 



CODE FOR HORIZONTAL TAB 

CODE FOR LINE FEED 

CODE FOR CARRIAGE RETURN 

CODE FOR CARRIAGE RETURN-LINE FEED 

PROCESSOR STATUS WORD 

STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



; ♦GENERAL PURPOSE REGISTER DEFINITIONS 



RO' 
Rl" 
R2' 
R3' 
R4> 
R5' 
R6> 
R7" 
SP- 
PC- 



HI 
HZ 
K3 
HA 
X5 
K6 
HI 
K6 
HI 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 



{♦PRIORITY LEVEL DEFINITIONS 
PRO- 0 ! J PRIORITY LEVEL 0 



KTJll-B DIAGNOSTIC 

BASIC DEFINITIONS 

000040 
000100 
000140 
000200 
000240 
000300 
000340 

100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 



11 
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SEQ 0008 



PR1» 
PR2- 
PR3- 
PR4- 
PR5= 
PR6» 
PR7- 



40 

100 
140 
200 
240 
300 
340 



"SWITCH REGISTER' 



(PRIORITY LEVEL 1 
! PRIORITY LEVEL 2 
; PRIORITY LEVEL 3 
; PRIORITY LEVEL 4 
; PRIORITY LEVEL 5 
[PRIORITY LEVEL 6 
i PRIORITY LEVEL 7 
SWITCH DEFINITIONS 



SW15' 100000 

SW14> 40000 

SW13- 20000 

SW12« 10000 

SWll- 4000 

SWIO- 2000 

SW09- 1000 

SW08* 400 

SW07- 200 

swoe- 100 

SW05- 40 

SW04- 20 

SW03- 10 

SW02- 4 

SWOl- 2 

SWOO- 1 

SW9- SW09 

SW8= SU08 

SW7« SW07 

SU6> SU06 

SUS- SU05 

SU4- SU04 

SUB- SU03 

SU2- SU02 

SUl- SUOl 

SUO- SUOO 

;*DATA BIT DEFINITIONS (BITOO TO BIT15) 

BIT15- 100000 



BIT14- 

BIT13- 

BIT12« 

BITll- 

BITIO- 

BIT09- 

BIT08» 

BIT07= 

BIT06- 

BITOS- 

BIT04» 

BIT03= 

BIT02= 

BITOl- 

BITOO= 

BIT9= 

BIT8- 

BIT7- 

BIT6- 

BIT5= 

BIT4» 



40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 

BIT09 
BIT08 
BIT07 
BIT06 
BIT05 
BIT04 
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278 



000010 
000004 
000002 
000001 

000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
U00064 
000240 



000250 

177572 
177574 
177576 
172516 

172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 

172320 
172322 
172324 
172326 
172330 
172332 
172334 
172336 

172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 

172360 
172362 
172364 
172366 
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SEQ 0009 



BIT3- 
BIT2- 
BIT1- 
BITO- 
; *BASIC 
ERRVEC- 
RESVEC« 
TBITVEC-14 
TRTVEC- 14 
BPTVtC" 14 
IOTVEC= 20 
PURVEC- 24 
EMTVEC- 30 
TRAPVEC«34 



BIT03 
BIT02 
BITOl 
BITOO 

"CPU" TRAP VECTOR ADDRESSES 



4 

10 



TKVEC' 
TPVEC- 



60 
64 



PIRQVEC»240 



TIME OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 
"T" BIT 
TRACE TRAP 

BREAKPOINT TRAP (BPT) 
INPUT/OUTPUT TRAP (lOT) **SCOPE** 
POUER FAIL 

EMULATOR TRAP (EMT) **ERROR*« 

"TRAP" TRAP 

TTY KEYBOARD VECTOR 

TTY PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 



.SBTTL MEMORY MANAGEMENT DEFINITIONS 
;*KT11 VECTOR ADDRESS 
MMVEC» 250 

;«KT11 STATUS REGISTER ADDRESSES 
SRO* 177572 
SRI- 177574 
SR2« 177576 
SR3- 172516 

;*KERNEL "I" PAGE DESCRIPTOR REGISTERS 

KIPDRO» 172300 

KIPDRl- 172302 

KIPDR2- 172304 

KIPDR3" 172306 

KIPDR4- 172310 

KIPDR5- 172312 

KIPDR6- 172314 

KIPDR7« 172316 

;*KERNEL "D" PAGE DESCRIPTOR REGISTERS 



172320 
172322 
172324 
172326 
172330 
172332 
172334 
172336 

i*KERNEL "I" PAGE ADDRESS REGISTERS 
KIPARO- 172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 

i*KERNEL "D" PAGE ADDRESS REGISTERS 
KDPARO- 172360 
K0PAR1= 172362 
KDPAR2- 172364 
KDPAR3- 172366 



KDPDRO' 
KDPDRl- 
KDPDR2' 
KDP0R3' 
KDPDR4« 
KDPDR5- 
K0PDR6' 
KDPDR7- 



KIPARl' 
KIPAR2' 
KIPAR3' 
KIPAR4- 
KIPAR5- 
KIPAR6> 
KIPAR7- 



Kl 
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SEO 0010 

MEMORY MANAGEMENT DEFINITIONS 

172370 K0PAR4- 172370 



172372 K0PAR5- 172372 

172374 K0PAR6- 172374 

172376 KDPAR7- 172376 

279 .SBTTL UNIBUS MAP REGISTER DEFINITIONS 
280 

281 :*THE LOWER 16 BITS OF THE MAP REGISTERS ARE LABELED 'MAPLXX' 

282 !*THE UPPER 6 BITS OF THE MAP REGISTERS ARE LABELED 'MAPHXX' 
283 

284 

285 170200 MAPLOO - 170200 

286 170202 MAPHOO - 170202 

287 170204 MAPLOl - 170204 

288 170206 MAPHOl - 170206 

289 170210 MAPL02 - 170210 

290 170212 MAPH02 - 170212 

291 170214 MAPL03 - 170214 

292 170216 MAPH03 - 170216 

293 170220 MAPL04 - 170220 

294 170222 MAPH04 - 170222 

295 170224 MAPL05 - 170224 

296 170226 MAPH05 » 170226 

297 170230 MAPL06 - 170230 

298 170232 MAPH06 - 170232 

299 170234 MAPL07 « 170234 

300 170236 MAPH07 - 170236 

301 170240 MAPLIO - 170240 

302 170242 MAPHIO - 170242 

303 170244 MAPLll - 170244 

304 170246 MAPHll - 170246 

305 170250 MAPL12 « 170250 

306 170252 MAPH12 » ? 70252 

307 170254 MAPL13 =• 170254 

308 170256 MAPH13 - 170«;36 

309 170260 MAPL14 » 170260 

310 170262 MAPH14 - 170262 

311 170264 MAPL15 - 170264 

312 170266 MAPH15 « 170266 

313 170270 MAPL16 « 170270 

314 170272 MAPH16 • 170272 

315 170274 MAPL17 - 170274 

316 170276 MAPH17 - 170276 

317 170300 MAPL20 - 170300 

318 170302 MAPH20 - 170302 

319 170304 MAPL21 • 170304 

320 170306 MAPH21 - 170306 

321 170310 MAPL22 • 170310 

322 170312 MAPH22 - 170312 

323 170314 MAPL23 = 170314 

324 170316 MAPH23 - 170316 

325 170320 MAPL24 « 170320 

326 170322 MAPH24 « 170322 

327 170324 MAPL25 - 170324 

328 170326 MAPH25 ° 170326 

329 170330 MAPL26 - 170330 

330 170332 MAPH26 « 170332 

331 170334 MAPL27 - 17^334 
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SEQ 0011 



UNIBUS HAP AEGISTER DEFINITIONS 



332 
333 
334 
335 
336 
337 

33a 

339 
340 
341 
342 
343 
344 
345 
346 
347 

34a 

349 

350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 



170336 
170340 
170342 
170344 
170346 
170350 
170352 
170354 
170356 
170360 
170362 
170364 
170366 
170370 
170372 
170374 
170376 

170200 
170202 
170204 
170206 
170210 
170212 
170214 
170216 
170220 
170222 
170224 
170226 
170230 
170232 
170234 
170236 



177572 
177574 
177576 
172516 
000001 
177520 
177730 
177732 
177734 
177746 
177522 
120001 
170014 



000000 



000174 



MAPH27 
MAPL30 
MAPH30 
MAPL31 
MAPH31 
MAPL32 
MAPH32 
MAPL33 
MAPH33 
MAPL34 
nAPH34 
MAPL35 
hAPH35 
nAPL36 
nAPH36 
MAPL37 
MAPH37 

MAPLO 
MAPHO 
MAPLl 
MAPHl 
MAPL2 
MAPH2 
MAPL3 
MAPH3 
MAPL4 
MAPH4 
MAPL5 
MAPH5 
MAPL6 
MAPH6 
MAPL7 
MAPH7 



170336 
170340 
170342 
170344 
170346 
170350 
170352 
170354 
170356 
170360 
170362 
170364 
170366 
170370 
170372 
170374 
170376 

MAPLOO 
MAPHOO 
MAPLOl 
hAPHOl 
MAPL02 
MAPH02 
MAPL03 
MAPH03 
MAPL04 
nAPH04 
MAPL05 
MAPH05 
MAPL06 
MAPH06 
MAPL07 
MAPH07 



.SBTTL USA SPECIFIC REGISTERS 



MMRO 

MMRl 

MnR2 

MMR3 

UFOSET 

BCSR 

DCSR 

DOR 

KMCR 

CCR 

PCR 

POLY 

SIMLGO 



177572 
177574 
177576 
172516 
1 

177520 
177730 
177732 
177734 
" 177746 
» 177522 
' 120001 
- 170014 



HEMORY MANAGEMENT REGISTER DEFINITIONS 



FLAG FOR UFD MODE 

BOOT/DIAGNOSTIC STATUS REGISTER 

DIAGNOSTIC CONTROLLER STATUS REGISTER 

DIAGNOSTIC DATA REISTER 

KTJll-B MEMORY CONFIGURATION REGISTER 

CACHE CONTOL REGISTER FOR CPU 

PAGE CONTROL REGISTER 

POLYNOMIAL USED FOR CRC ROUTINES 

SIMULTANEOUS GO ADDRESS FOR MULTIPLE UBE'S 



SBTTL TRAP CATCHER 
.«0 

♦ALL UNUSED LOCATIONS FROM 4 776 CONTAIN A ".♦2, HALT" 
♦SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
♦LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 



I 



KTJll-B DIAGNOSTIC 

TRAP CATCHER 

000174 000000 

000176 000000 

304 000200 

305 000200 005037 

306 000204 000137 

307 000220 
300 000220 012737 
309 000226 000137 
390 

391 



000232 
000046 

000046 023340 
000052 

000052 000000 



392 



000232 



000232 

000024 
000024 000200 

000044 
000044 000232 

000232 



000232 
000232 
000234 
000236 
000240 
000242 
000244 



000000 
001200 
000000 
000000 
000000 
000052 
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001160 
002530 

000777 001160 
002530 



SEQ 0012 



OISPREG: .UORO 0 



SUREG: 
.-200 



•220 



. UORD 0 



:iSOFTUARE DISPLAY REGISTER 
::SOFTUARE SUITCH REGISTER 



CLR 
JMP 

MOV 
JMP 



♦ TMPO 
StfSTART 

#777.$TMP0 
S*START 



;SAVE PC 

:il)SET L0C.46 TO ADDRESS OF lENDAD IN 



.SBTTL ACTll HOOKS 

; HOOKS REQUIRED BY ACTll 
♦SVPC-. 
.-46 
LENDAD 
.•52 

.UORD 0 :;2)SET L0C.52 TO ZERO 

.-♦SVPC RESTORE PC 

.SBTTL APT PARAMETER BLOCK 

; • *************************************************************** 

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

• • *************************************************************** 

.IX-. ::SAVE CURRENT LOCATION 

.-24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ; ;F0R APT START UP 

.-44 POINT TO APT INDIRECT ADDRESS PNTR. 

♦APTHDR ;:P0INT TO APT HEADER BLOCK 
.-.♦X :;RESET LOCATION COUNTER 
; *************************************************************** 

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDPll DIAGNOSTIC 

INTERFACE SPEC. 
4APTHD 
«HIBTS 
4MBA0R 
♦TSTM: 
♦PASTM: 
♦UNITM: 



lEOP 



.UORD 0 iiTUO HIGH BITS OF 18 BIT MAILBOX AOOR. 

.UORD 4MAIL :iA0DRESS OF APT MAILBOX (BITS 0-lS) 
.UORD ;;RUN TIM OF LONGEST TEST 

.UORD :;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

.UORD s: ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 

.UORD $ETEND-$MAIL/2 : {LENGTH MAILBCX-ETABLE(UOROS) 



KTJll-B DIAGNOSTIC 
COMMON TAGS 
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SEQ 0013 



393 






.S8TTL 


COMMON 


TAGS 










i ; *********************** t ** t *0 * 0*0 9 1 








j*THIS 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 








i *USEO 


IN THE PROGRAM. 






001100 






.-1100 






001100 






ICHTAG: 




; s START OF COMMON TAGS 


001100 


000000 






.UORD 


0 




001102 


000 




♦TSTNM: .BYTE 


0 


;; CONTAINS THE TEST NUMBER 


001103 


000 




lERFLG 


: .BYTE 


0 


:: CONTAINS ERROR FLAG 


001104 


000000 




♦ICNT: 


.UORD 


0 


CONTAINS SUBTE'^T ITERATION COUNT 


001106 


000000 




ILPADR 


: .UORD 


0 


CONTAINS SCOPE LOOP ADDRESS 


001110 


000000 




ILPERR 


: .UORD 


0 


s .-CONTAINS SCOPE RETURN FOR ERRORS 


001112 


000000 




♦ERTTL 


: .UORD 


0 


CONTAINS TOTAL ERRORS DETECTED 


001114 


000 




«ITEMB 


! .BYTE 


0 


; J CONTAINS ITEM CONTROL BYTE 


001115 


001 




lERMAX 


: .BYTE 


1 


: {CONTAINS MAX. ERRORS PER TEST 


001116 


000000 




«ERRPC 


• .UORD 


0 


s {CONTAINS PC OF LAST ERROR INSTRUCTION 


001120 


000000 




IGDADR 


: .UORD 


0 


; {CONTAINS ADDRESS OF 'GOOD' DATA 


001122 


000000 




IBDADR 


■ .UORD 


0 


.-{CONTAINS ADDRESS OF 'BAD' DATA 


001124 


000000 




I6DDAT 


.UORD 


0 


{{CONTAINS 'GOOD' DATA 


001126 


000000 




IBDDAT 


.UORD 


0 


((CONTAINS 'BAD' DATA 


001130 


000000 






.UORD 


0 


{ (RESERVED- -NOT TO BE USED 


001132 


000000 






.UORD 


0 




001 134 


000 




♦AUTOB: .BYTE 


0 


({AUTOMATIC MODE INDICATOR 


001135 


000 




IINTAG 


.BYTE 


0 


{{INTERRUPT MODE INDICATOR 


001136 


000000 






.UORD 


0 




001140 


177570 




SUR: 


.UORD 


OSUR 


{{ADDRESS OF SUITCH REGISTER 


001142 


177570 




DISPLAY: .UORD 


DDISP 


{{ADDRESS OF DISPLAY REGISTER 


001144 


177560 




♦ TKS: 


177560 




{ {TTY KBD STATUS 


001146 


177562 




«TKB: 


177562 




{{TTY KBD BUFFER 


001150 


177564 




♦ TPS: 


177564 




{{TTY PRINTER STATUS REG. ADDRESS 


001152 


177566 




♦ TPB: 


177566 




{{TTY PRINTER BUFFER REG. ADDRESS 


001154 


000 




«NULL: 


.BYTE 


0 


{{CONTAINS NULL CHARACTER FOR FILLS 


001155 


002 




♦FILLS: 


.BYTE 


2 


{{CONTAINS • OF FILLER CHARACTERS REQUIRED 


001156 


012 




♦FILLC: 


.BYTE 


12 


{(INSERT FILL CHARS, AFTER A "LINE FEED" 


001157 


000 




♦TPFLG: 


.BYTE 


0 


{{"TERMINAL AVAILABLE" FLAG CBIT<07>-0-YES 




000002 




.REPT 


2 




001160 


000000 




»TMP0: 


.UORD 


0 


{{USER DEFINED 


001162 


000000 




»TMP1: 


.UORD 


0 


((USER DEFINED 


001164 


000000 




♦TIMES: 


0 




((MAX. NUMBER OF ITERATIONS 


001166 


000000 




♦ESCAPE :0 




{{ESCAPE ON ERROR ADDRESS 


001170 


207 


377 


377 ♦BELL: 


.ASCIZ 


<207><377><377> 


((CODE FOR BELL 


001173 


000 












001174 


077 




♦QUES: 


.ASCII 


/?/ 


{ (QUESTION MARK 


001175 


on 




♦CRLF: 


.ASCII 


<15> 


{(CARRIAGE RCTURN 


001176 


012 


000 


♦ LF: 


.ASCIZ 


<12> 


({LINE FCED 



001200 
001200 
001202 
001204 
001206 
001210 
001212 
001214 



000000 
000000 
000000 
000000 
000000 
000000 
000000 



1 1 *************************************************************** 

.SBTTL APT MAILBOX-ETABLE 

I ; *************************************************************** 

.EVEN 

♦MAIL: {{APT MAILBOX 

♦MSGTY: .UORD AMSGTY { {MESSAGE TYPE CODE 

♦FATAL: .UORD AFATAL {{FATAL ERROR NUMBER 

♦TESTN: .UORD ATESTN {{TEST NUMBER 

♦PASS: .UORD APASS {{PASS COUNT 

♦DEVCT: .UORD ADEVCT { {DEVICE COUNT 

♦UNIT: .UORD AUNIT : .1/0 UNIT NUMBER 

♦MSGAD: .UORD AMSGAD { {MESSAGE ADDRESS 



KTJll-B DIAGNOSTIC MACRO Y05.02 

APT MAILBOX -ETA8LE 

001216 000000 
001220 

001220 OCO 

001221 000 

001222 000000 
001224 000000 
001226 000000 



001230 000 

001231 000 



001232 000000 

001234 000 

001235 000 

001236 OCOOOO 

001240 000 

001241 000 

001242 000000 

001244 000 

001245 000 

001246 000000 
001250 000000 
001252 000000 
001254 000000 
001256 000000 
001260 000000 
001262 000000 
001264 000000 
001266 000000 
001270 000000 
001272 000000 
001274 000000 
001276 000000 
001300 000000 
001302 000000 
001304 000000 
001306 000000 
001310 000000 
001312 000000 
001314 000000 
001316 000000 
001320 000000 
001322 000000 
001324 



Friday 29-M»r-8S 



IMSGLG: .UORO 
♦ETABLE: 

»ENV: .BYTE 

♦ENVM: .BYTE 

ISUREG; .UORO 

lUSUR: .UORO 

ICPUOP: .UORO 

!* 

;* 
s* 
s* 

IMAMSl: .BYTE 
IMTYPl: .BYTE 

s* 

!* 



(MAORI 


: .UORO 


IMAMS2 


: .BYTE 


♦MTYP2 


: .BYTE 


$MA0R2 


.UORO 


$MAMS3 


: .BYTE 


♦MTYP3 


: .BYTE 


$MADR3 


: .UORO 


«MAMS4 


: .BYTE 


$MTYP4 


.BYTE 


$MA0R4 


• .UORO 


$VECT1 


. .UORO 


♦VECT2 


.UORO 


IBASE 




.UORO 


lOEVM 




.UORO 


ICOUl 




.UORO 


«CDU2 




.UORO 


$DDUO 




.UORO 


$00U1 




.UORO 


$DDU2 




.UORO 


(DDU3 




.UORO 


«0DU4 




.UORO 


lOOUS 




.UORO 


tD0U6 




.UORD 


«DDU7 




.UORO 


«00U8 




.UORD 


$D0U9 




.UORD 


(DDUlO 


.UORD 


IDDUll: 


.UORO 


(00U12: 


.UORO 


$DDU13: 


.UORD 


$DDU14: 


.UORD 


(DDU15: 


.UORD 


$ETEND: 





B2 
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SEQ 0014 



AMSGLG 

AENV 

AENVM 

ASUREG 

AUSUR 

ACPUOP 



AMAMSl 
AMTYPl 



AMAORl 

AMAMS2 

AMTYP2 

AMADR2 

AMAMS3 

AMTYP3 

AMA0R3 

AMAMS4 

AMTYP4 

AMADR4 

AVECTl 

AVECT2 

ABASE 

ADEVM 

ACDUl 

ACDU2 

ADOUO 

AOOUl 

A0DU2 

A0DU3 

AD0U4 

A0DU5 

A0DU6 

A0DU7 

ADDU0 

ADDU9 

ADDUlO 

AODUll 

AD0U12 

AOOUl 3 

ADDU14 

ADDU15 



1 ; MESSAGE LENGTH 
ijAPT ENVIRONMENT TABLE 
J ! ENVIRONMENT BYTE 
t : ENVIRONMENT MODE BITS 
J lAPT SUITCH REGISTER 
I lUSER SUITCHES 
J J CPU TYPE. OPTIONS 
BITS 15-11-CPU TYPE 

11/04-01 .11/05-02 . 11/20-03 . 11/40-04 .11/45-05 
11/70-06. PDQ-07.Q-10 
BIT 10-REAL TIME CLOCK 
BIT 9-FLOATlNG POINT PROCESSOR 
BIT 8-MEMORY MANAGEMENT 
iiHIGH ADDRESS. M.S. BYTE 
s;MEM. TYPE.BLKM 
MEM, TYPE BYTE -• (HIGH BYTE) 
900 NSEC CORE-OOl 
300 NSEC BIP0LAR-002 
500 NSEC MOS-003 
: :HIGH ADDRESS. BLK«1 

MEM. LAST AD0R.-3 BYTES. THIS UORO AND LOU OF "TYPE" ABOVE 
J ; HIGH ADDRESS. M.S. BYTE 
! sr«M.TYPE.BLK«2 
j:MEM.LAST ADDRESS. BLK«2 
; I HIGH ADDRESS . M . S . B YTE 
; JMEM.TYPE.BLK03 
I : MEM . LAST ADDRESS .BLK«3 
iHIGH ADDRESS. M.S. BYTE 
jMEM.TYPE,BLK#4 
MEM. LAST ADDRESS. BLKM 
INTERRUPT VECTOROl.BUS PRIORITY*! 
INTERRUPT VECT0RO2BUS PRI0RITY02 
{BASE ADDRESS OF EQUIPMENT UNDER TEST 
; DEVICE MAP 

{CONTROLLER DESCRIPTION U0RD«1 
I {CONTROLLER DESCRIPTION U0R0«2 
J {DEVICE DESCRIPTOR UORO«0 
: {DEVICE DESCRIPTOR U0RD«1 
{ {DEVICE DESCRIPTOR U0RD«2 
{{DEVICE DESCRIPTOR U0R0«3 
{{DEVICE DESCRIPTOR U0R0«4 
({DEVICE DESCRIPTOR U0RD«5 
DEVICE DESCRIPTOR U0RD«6 
DEVICE DESCRIPTOR U0R0«7 
DEVICE DESCRIPTOR U0RD«8 
DEVICE DESCRIPTOR U0R0«9 
DEVICE DESCRIPTOR U0RD»10 
DEVICE DESCRIPTOR U0RD«11 
DEVICE DESCRIPTOR U0RD012 
DEVICE DESCRIPTOR U0RD013 
DEVICE DESCRIPTOR U0RD«14 
DEVICE DESCRIPTOR U0R0015 



KTJll-B DIAGNOSTIC 
ERROR POINTER TABLE 
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SEQ 0015 



ERS 



394 

395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 

426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
«38 
439 



001324 



001324 
001326 
001330 
001332 



001334 
001336 

001340 
001342 



001344 
001346 

001350 
001352 



001354 
001356 

001360 
001362 



001364 

001366 

001370 
001372 



001374 
001376 

001400 
001402 



027234 
031422 
032414 
000000 



027300 
031471 

032426 
000000 



027342 
031471 

032426 
000000 



027406 
031563 

032444 
000000 



027464 

031653 

032460 
000000 



027562 
031731 

032460 
000000 



.SBTTL ERROR POINTER TABLE 

i*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
.*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
:*LOCATION IITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
;«N0TE1: IF ♦ITEMS IS 0 THE ONLY PERTINENT DATA IS (TRRPC). 

s«N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 

!* EM ii POINTS TO THE ERROR MESSAGE 

;* DH : {POINTS TO THE DATA HEADER 

♦ DT POINTS TO THE DATA 

DF :sPOINTS TO THE DATA FORMAT 



♦ERRTB: 
.SBTTL 



001404 027625 



ERROR DEFINITIONS 
ERROR 1 

EMI 
DHl 
DTI 
0 

ERROR 2 

EM2 
0H2 

DT2 
0 

ERROR 3 

EM3 
DH2 

DT2 
0 

ERROR 4 

EM4 

DH3 

DT3 
0 

ERROR 5 

EMS 

DH4 

DT4 

0 

ERROR 6 

EM6 

DH5 

DT4 
0 

ERROR 7 
EM7 



TIMEOUT ON ACCESSING A MAP REGISTER 
TEST * ERROR PC ERROR » ADDRESS 
TEST . $ERRPC . ERRNUM . $BDADR 



; MAP REGISTER COULD NOT BE CLEARED 

i GOOD BAD 

; TEST « ERROR PC ERROR « DATA DATA ADDRESS 

s TEST . «ERRPC . ERRNUM . $GDOAT . tBDDAT . >BDADR 



5 MAP REGISTER COULD NOT HOLD PATTERN 

; GOOD BAD 

{ TEST « ERROR PC ERROR « DATA D^.TA ADDRESS 

: TEST , $ERRPC . ERRNUM . $GDDAT . $BDDAT . «BDADR 



MAP REGISTER HAS NOT BEEN ADDRESSED CORRECTLY 

GOOD BAD 
TEST « ERROR PC ERROR « ADDRESS ADDRESS 
TEST , «ERRPC , ERRNUM . $GDADR . «BDADR 



THERE WAS NO DIFFERENCE FOUND BETWEEN HI AND LO MAP REGIST 

HI LOW 
TEST # ERROR PC ERROR # MAP MAP 
TEST , $ERRPC .ERRNUM. $GDDAT . »BDDAT 



ERROR IN BITS 3-6.9-14 IN THE DCSR 

GOOD BAD 

TEST 0 ERROR PC ERROR 0 DATA DATA 
TEST . »ERRPC. ERRNUM. $GDDAT . »BDDAT 



s DCSR DID RESPOND PROPERLY ON RESET 



KTJll-B DIAGNOSTIC 

ERROR DEFINITIONS 

440 001406 031731 
441 

442 001410 032460 

443 001412 000000 
444 

445 

446 001414 027674 

447 001416 031422 

448 001420 032414 

449 001422 000000 
450 

451 

452 001424 027746 

453 001426 031471 
454 

455 001430 032426 

456 001432 000000 
457 

458 

459 001434 030020 

460 001436 031422 

461 001440 032414 

462 001442 000000 
463 

464 

465 001444 030072 

466 001446 032013 

467 ()01450 032460 

468 001452 000000 
469 

470 

471 001454 030141 

472 001456 031731 
473 

474 001460 032460 

475 001462 000000 
476 

477 

478 001464 030171 

479 001466 032013 

480 001470 032460 

481 001472 000000 
482 

483 

484 001474 030220 

485 001476 031731 
486 

487 001500 032460 

488 001502 000000 
489 

490 

491 001504 030302 

492 001506 032066 

493 001510 032474 

494 001512 000000 
495 

496 



MACRO Y05.02 Friday 
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DH5 

0T4 
0 

ERROR 10 

EMIO 
DHl 
DTI 
0 

ERROR 11 

EMU 
DH2 

DT2 
0 

ERROR 12 

EM12 
OHl 
OTl 
0 

ERROR 13 

EM13 
OHl 3 
0T4 
0 

ERROR 14 

EM14 
DHS 

DT4 

0 

ERROR 15 

EM15 
OHl 3 
0T4 
0 

ERROR 16 

EM16 
0H5 

0T4 
0 

ERROR 17 

EM17 
DH16 
0T16 
0 

ERROR 20 



GOOD BAD 

TEST « ERROR PC ERROR « DATA DATA 
TEST , $ERRPC . ERRNUM , IGDDAT , «BDDAT 



TIMEOUT HAS OCCURED ON ACCESS TO THE OCSR 
TEST « ERROR PC ERROR « ADDRESS 
TEST , lERRPC .ERRNUM . »BOADR 



KMCR BITS 0-5.8 DID NOT GET SET CORRECTLY 

GOOD BAD 

TEST « ERROR PC ERROR « DATA DATA ADDRESS 
TEST . $ERRPC . ERRNUM . $6DDAT . $BD0AT , IBDAOR 



TIMEOUT HAS OCCURED ON ACCESS TO THE KMCR 
TEST « ERROR PC ERROR » ADDRESS 
TEST . lERRPC . ERRNUM . $BDADR 



ERROR IN DATA PATH 

TEST « ERROR PC ERROR 9 PATTERN DDR 
TEST . LERRPC . ERRNUM , IGDDAT . *BDDAT 



i ERROR IN DATA OUT 

: GOOD BAD 

: TEST 0 ERROR PC ERROR # DATA DATA 

{ TEST. »ERRPC. ERRNUM. »GDDAT.$BDDAT 



ERROR IN DATA IN 

TEST » ERROR PC ERROR « PATTERN DDR 
TEST . «ERRPC . ERRNUM . «GODAT . $BDDAT 



DDR NOT ZERO UHEN DCSR SELECTS UNIBUS LINES 

GOOD BAD 
TEST « ERROR PC ERROR « DATA DATA 
TEST . iERRPC . ERRNUM . $GDOAT . )BDDAT 



ERROR IN SETTING DCSR<7> 
TEST 0 ERROR PC ERROR * 
TEST. lERRPC. ERRNUM 
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ERROR DEFINITIONS 

497 001514 030335 EM20 

498 001516 032125 0H20 

499 001520 032504 OT20 

500 001522 000000 0 

501 : ERROR 21 
502 

SOS 001524 030413 EM21 

504 001526 032066 0H16 

505 001530 032474 0T16 

506 001532 000000 0 

507 i ERROR 22 
508 

509 001534 030460 En22 

510 001536 032066 0H16 

511 001540 032474 0T16 

512 001542 000000 0 

513 ; ERROR 23 
514 

515 001544 030534 EM23 

516 001546 032205 DH23 
517 

518 001550 032530 DT23 

519 001552 000000 0 

520 : ERROR 24 
521 

522 001554 030546 EM24 

523 001556 032066 DH16 

524 001560 032474 DT16 

525 001562 000000 0 

526 : ERROR 25 
527 

528 001564 030566 EM25 

529 001566 032066 DH16 

530 001570 032474 0T16 

531 001572 000000 0 

532 : ERROR 26 
533 

534 001574 030636 En26 

535 001576 031731 0H5 
536 

537 001600 032460 0T4 

538 001602 000000 0 

539 ! ERROR 27 
540 

541 001604 030721 EM27 

542 001606 032316 0H27 

543 001610 032550 0T27 

544 001612 000000 0 

545 i ERROR 30 
546 

547 001614 030756 EM30 

548 001616 031422 OHl 

549 001620 032564 0T30 

550 001622 000000 0 

551 ; ERROR 31 
552 

553 001624 031017 EMSl 



SEQ 0017 



ERROR IN UNIQUE ADDRESSING OF REGISTERS 
TEST « ERROR PC ERROR « KMCR PAIR FAILED 
TEST,$ERRPC,ERRNUM,KMCR. IBDADR 



REG. PAIR 31. PERFORMS RELOCATION 
TEST « ERROR PC ERROR « 
TEST.$ERRPC,ERRNUM 



NXM CONDITION COULDN'T BE CREATED THRU ALU 
TEST # ERROR PC ERROR # 
TEST.IERRPC.ERRNUM 



ALU ERROR 

GOOD BAD 

TEST « ERROR PC ERROR « DATA DATA ADDRESS 
TEST , «ERRPC . ERRNUM , $GOOAT . $BOOAT . KIPAR6 . $BOADR 



CPU CACHE ERROR 

TEST « ERROR PC ERROR ff 

TEST.IERRPC.ERRNUM 



KMCR<4-0> DOESN'T DISABLE MAIN MEMORY 
TEST « ERROR PC ERROR # 
TEST.IERRPC.ERRNUM 



KMCR DOES NOT REFLECT EXPECTED STATUS OF THE CACHE/ 

GOOD BAD 

TEST » ERROR PC ERROR » DATA DATA 
TEST . «ERRPC . ERRNUM , $G00AT . $B00AT 



ERROR IN CACHE TAG REGISTERS 
TEST « ERROR PC ERROR # ADDRESS 
TEST . ♦ERRPC . ERRNUM . MAPHOl , MAPLOl 



ERROR IN THE DMA CACHE DATA RAMS 
TEST » ERROR PC ERROR 0 ADDRESS 
TEST . $ERRPC . ERRNUM . MAPLOO 



s ERROR IN THE M9312 BOOT ROM SECTION 



KTJll-B DIAGNOSTIC 
ERROR DEFINITIONS 



554 


001626 


032066 


555 


001630 


032474 


556 


001632 


000000 


557 






558 






559 


001634 


031063 


560 


001636 


032066 


561 


001640 


032474 


562 


001642 


000000 


563 






564 






565 


001644 


031130 


566 


001646 


032066 


567 


001650 


032474 


568 


001652 


000000 


569 






570 






571 


001654 


031204 


572 


001656 


032066 


573 


001660 


032474 


574 


001662 


000000 


575 






576 






577 


001664 


031244 


578 


001666 


032066 


579 


001670 


032520 


580 


001672 


000000 


581 






582 






583 


001674 


031303 


584 


001676 


032066 


585 


001700 


032474 


586 


001702 


000000 


587 






588 






589 


001704 


031351 


590 


001706 


032066 


591 


001710 


032474 


592 


001712 


000000 


593 






594 






595 


001714 


000000 


596 


001716 


000000 


597 


001720 


000000 


598 


001722 


000000 


599 


001724 


000000 


600 


001726 


000000 


601 


001730 


000000 


602 


001732 


172100 


603 


001734 




604 


001774 


000377 




002002 


052525 


605 


002006 


145454 




002014 


021042 


606 


002016 


053346 


607 


002024 


000017 




002032 


000052 



F2 
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SEQ 0016 



DH16 ; TEST # ERROR PC ERROR # 

DT16 i TEST.^ERRPC.ERRNUM 

0 

ERROR 32 



EM32 
DH16 
DT16 
0 

ERROR 33 

EM33 
0H16 
DT16 
0 

ERROR 34 

EM34 
DH16 
DT16 
0 

ERROR 35 



; ERROR IN ARBITRATION LOGIC THRU UBE 
s TEST # ERROR PC ERROR # 
! TEST,»ERRPC.ERRNUM 



ERROR TRYING TO DO DMA CYCLES THRU UBE 
TEST # ERROR PC ERROR » 
TEST,$ERRPC.ERRNUM 



ERROR IN THE UNIBUS MEMORY TEST 
TEST « ERROR PC ERROR 0 
TEST.iERRPC.ERRNUM 



EM35 
DH16 
DT21 
0 

ERROR 36 

EM36 
DH16 
DT16 
0 

ERROR 37 



UNEXPECTED TIMEOUT HAS OCCURED 
TEST 0 ERROR PC ERROR # 
TFST.JBDADR.ERRNUM 



UNIBUS TIMEOUT DID NOT OCCUR 
TEST « ERROR PC ERROR # 
TEST,$ERRPC.ERRNUM 



EM37 
DH16 
DT16 
0 



DCSR<3> DIDN'T DISABLE UBA ROM'S 
TEST # ERROR PC ERROR # 
TEST.IERRPC.ERRNUM 



.SBTTL 


GLOBAL 


VARIABLES 




ERRNUM: 


.UORD 


0 


• ERROR NUMBER FOR REPORT 


TEST: 


.UORD 


0 


! TEST NUMBER FOR REPORT 


PMIS: 


.UORD 


0 


PMI MEMORY SIZE 


UBECT : 


.WORD 


0 


NUMBER OF UBE'S 


8E1INT: 


.UORD 


0 


UBE #1 INTERRUPT FLAG 


BE2INT : 


.UORD 


0 


UBE #2 INTERRUPT FLAG 


TOUT: 


.UORD 


0 J TIMEOUT FLAG 


MCSR: 


.UORD 


172100 


POINTER TO MEMORY CSR 


URTBUF : 


.BLKU 


20 


URITE BUFFER 


007417 031463 PTRN16: 


.UORD 


377 . 7417 , 31463 . 52525 . 125252 


16-BIT BINARY DIVIDE 



125252 

104210 155555 .UORD 145454.104210,155555.021042 



146314 000000 .UORD 053346.146314.0 

000014 000025 PTRN6: .UORD 17.14.25.52 ; 6-BIT BINARY DIVIDE 



K7J11-B DIAGNOSTIC 
GLOBAL VARIABLES 



G2 
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S£Q 0019 



608 002034 
002042 
002050 

609 
610 
611 
612 
613 
614 
615 
616 
617 

618 002054 
619 

620 002172 

621 002174 

622 002176 

623 002200 
624 

625 
626 
627 
628 
629 
630 

631 002202 

632 002204 

633 002206 

634 002210 

635 002212 

636 002214 

637 002216 

638 002220 
639 

640 
641 
642 
643 

644 002222 

645 002224 

646 002226 

647 002230 

648 002232 

649 002234 

650 002236 

651 002240 
652 

653 
654 
655 
656 
657 
658 
659 
660 
661 
662 



000026 
000055 
000007 



000042 000010 
000077 000070 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



.WORD 26.42,10,55.77,70.7,0 



.SBTTL CACHE RAH IHAGE TABLE 



THE FOLLOWING BLOCK OF DATA WILL BE USED IN THE CACHE RAM BIT TEST 
THE EXACT ADDRESSES MILL BE FIGURED OUT BY THE PROGRAM DEPENDING 
ON THE LOCATION OF THIS TABLE. 



CTBLE: .BLKU 47 



OBADR: 



.WORD 
.UORD 
.UORD 
.UORD 



0 
0 
0 
0 



THE LARGEST « 


OF 


LOCATIONS NEEDED 


FIRST 


ADDRESS 


OF 


A 


FIELD 


IN 


TABLE 


FIRST 


ADDRESS 


OF 


B 


FIELD 


IN 


TABLE 


FIRST 


ADDRESS 


OF 


C 


FIELD 


IN 


TABLE 


FIRST 


ADORESS 


OF 


D 


FIELD 


IN 


TABLE 



.SBTTL UNIBUS EXERCISER REGISTER TABLES 



UBE »1 



BEIOB: 


0 


: UBE 


01 


DATA REGISTER 


BEICC: 


0 


! UBE 


01 


CYCLE COUNT REGISTER 


BEIBA: 


0 


! UBE 


01 


ADDRESS REGISTER 


BEICRI: 


0 


; UBE 


01 


CONTROL REGISTER 1 


BEICLR: 


0 


i UBE 


«1 


CLEAR ERROR REGISTER 


BE1CR2: 


0 


; UBE 


01 


CONTROL REGISTER 2 


BEIVEC: 


0 


; UBE 


01 


VECTOR PC 


BEIPSU: 


0 


! UBE 


»1 


VECTOR PSU 




UBE «2 








BE20B: 


0 


UBE 


«2 


DATA REGISTER 


BE2CC: 


0 


UBE 


«2 


CYCLE COUNT REGISTER 


BE2BA: 


0 


UBE 


«2 


ADDRESS REGISTER 


BE2CR1 : 


0 


UBE 


«2 


CONTROL REGISTER 1 


BE2CLR: 


0 


UBE 


«2 


CLEAR ERROR REGISTER 


BE2CR2: 


0 


UBE 


»2 


CONTROL REGISTER 2 


BE2VEC: 


0 


UBE 


02 


VECTOR PC 


BE2PSU: 


0 


UBE 


«2 


VECTOR PSU 



.SBTTL SUBROUTINE - OIAGNOSTIC.OATA.OUT SUBROUTINE 

* INPUTS: PATTERN TO BE STORED IN DDR AND THEN WRITTEN TO MEMORY IGODAT 

* TEST.LOCATION TO BE WRITTEN TO (16 OR 22 BITS) (Rl) 

* ON RETURN FROM SUBROUTINE TEST LOCATION SHOULD HAVE THE SAME DATA 

* AS DDR AND THE SAME AS PATTERN 

* THE PROGRAM HAS TO BE RUNNING IN DIAGNOSTIC MODE WITH DIAGNOSTIC 

* NPR REGISTER SELECTED 

BGNROUTINE 



H2 
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SUBROUTINE - DIAGNOSTIC.DATA.OUT SUBROUTINE 



SEQ 0020 



663 
664 
665 
666 
667 
668 
669 
670 
671 

672 002242 

673 002250 

674 002252 
675 

676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 

697 002254 

698 002262 

699 002264 
700 

701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 

715 002266 

716 002272 

717 002274 
718 

719 



nOVE PATTERN TO DDR 

DO EXTERNAL WRITE FROM TEST LOCATION 
RETURN 



ENDROUTINE 



013737 001124 

011111 

000207 



177732 DOOUT: MOV 
1»: MOV 
RTS 



052737 000001 

011111 

000207 



«GODAT,DDR 

(Rl).(Rl) 

PC 



STORE PATTERN IN DDR 

EXTENAL READ TO PROVIDE ADDRESS 



.SBTTL SUBROUTINE DIAGNOSTIC.DATA.IN SUBROUITNE 

♦ INPUTS: PATTERN TO BE WRITTEN TO MEMORY AND THEN TO DDR *GDDAT 

♦ TEST_LOCATION TO READ FROM (16 OR 22 BITS) (Rl) 

♦ ON RETURN FROM SUBROUTINE DDR SHOULD HAVE THE SAME DATA AS 

♦ SPECIFIED MEMORY LOCATION AND THE SAME AS THE PATTERN 

♦ THE PROGRAM HAS TO BE RUNNING IN DIAGNOSTIC MODE UITH DIAGNOSTIC 

♦ NPR REGISTER SELECTED. 

BGNROUTINE 

LET OCSR<0> - 01 

DO EXTERNAL WRITE FROM TEST.LOCATION 
RETURN 



ENDROUTINE 



177730 ODIN: BIS 
2« : MOV 
3*: RTS 



«BITOO.0CSR 

(Rl).(Rl) 

PC 



SET GO BIT 

PROVIDE ADDRESS FOR DMA 



SBTTL SUBROUTINE - TIMEOUT ROUTINE 

♦ THIS ROUTINE IS USED TO FLAG AN UNEXPECTED TIMEOUT. 

BGNROUTINE 

STORE ADDRESS THAT CAUSED TIMEOUT 

ERROR 

RETURN 

ENDROUTINE 



011637 001122 

104035 

000002 



TIMOUT ; 



MOV 

ERROR 

RTI 



(SP).$BDADR 
♦ 35 



STORE ADDRESS THAT TIMED OUT 
UNEXPECTED TIMEOUT 



12 
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SUBROUTINE - MAP.PROGRAM.AREA 



SEQ 0021 



720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 

734 002276 
002276 
002300 
002302 

735 002304 

736 002310 

737 002314 
736 002320 

739 002322 

740 002326 

741 002332 

742 002336 

743 002340 

744 002344 

745 002346 

746 002350 

747 002354 
002356 
002360 

748 002362 
749 

750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 

767 002364 

768 002370 

769 002376 

770 
771 



010046 
010146 
010246 
012700 
012701 
012720 
077103 
012700 
012701 
012702 
010220 
062702 
077104 
005020 
012710 
012602 
012601 
012600 
000207 



013702 
012737 
012737 



.SBTTL SUBROUTINE MAP PROGRAM AREA 

* THIS ROUTINE MAPS THE PROGRAM AREA TO THE FIRST 32K 
BGNROUTINE 

MAP PROGRAM AREA THRU KIPAR'S TO FIRST 32 K 

NO CACHE BYPASS 

RETURN 

ENOROUTINE 



172300 
000010 
077406 

172340 
000006 
000000 

000200 



177600 



MAPPR : 



1$: 



2$: 



MOV 


RO.-(SP) 


, jPUSH RO ON STACK 


MOV 


Rl.-(SP) 


sPUSH Rl ON STACK 


MOV 


R2.-(SP) 


:PUSH R2 ON STACK 


MOV 


#172300. RO 




RO POINTS TO FIRST KIPDR 


MOV 


«8. ,R1 




DO FOR ALL 8 REGISTERS 


MOV 


«77406.(R0)* 




. 4K PAGE. CACHE ON. READ/URITE 


SOB 


Rl.l« 




. CONTINUE TILL DONE 


MOV 


«172340.R0 




RO POINTS TO FIRST KIPAR 


MOV 


«6. .Rl 




00 FOR ALL 8 REGISTERS 


MOV 


«0.R2 




START WITH ADDRESS 0 


MOV 


R2.(R0)» 




. LOAD WITH ADDRESS 


ADO 


«200.R2 




. NEXT 4K 


SOB 


R1.2« 




. CONTINUE TILL DONE 


CLR 


(RO)* 




CLEAR KIPAR6 


MOV 


#177600. (RO) 




I/O PAGE TO KIPAR7 


MOV 


(SP)*.R2 


sPOP STACK INTO R2 


MOV 


(SP)»,R1 


;POP STACK INTO Rl 


MOV 


(SP)*.RO 


{POP STACK INTO RO 


RTS 


PC 







SBTTL SUBROUTINE - MEMORY SIZE 

* THIS ROUTINE SIZES MAIN (PMI) MEMORY IN 4K UORDS. 

BGNROUTINE 

REMAP TIMEOUT VECTOR AND PROGRAM AREA 

ENABLE MEMORY MANAGEMENT UNIT 

00 UNTIL TIMEOUT OR ALL 2M CHECKED 

CHECK LOCATION 0 IN EACH 4K PAGE THRU KIPAR6 
ENDDO 

ENOROUTINE 



000004 

002444 000004 
000340 000006 



MEMSIZ: MOV 
MOV 
MOV 



ERRVEC.R2 

»3«.ERRVEC 

#340.ERRVEC*2 



SAVE TIME OUT VECTOR 
POINT NEW TO PROGRAM 
AT PRIORITY 7 



SIZE MEMORY IN 4K UORDS 















J2 
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SUeROUTINE - MENORY SIZE 












772 
















773 002404 


012737 


000200 


172354 




MOV 


«200.KIPAR6 


FIRST 4K 


774 002412 


000403 








BR 


2% 


GO TRY TO ACCESS 


775 002414 


062737 


000200 


172354 


It: 


ADD 


«200.KIPAR6 


. NEXT 4K 


776 002422 


005737 


140000 




2%: 


TST 


S«140000 


. ACCESS THRU KIPAR6 


777 002426 


022737 


170000 


172354 




CMP 


«170000,KIPAR6 


. LAST PAGE? 


778 002434 


001367 








BNE 


11 


. IF NOT. BRANCH 


779 002436 


012701 


000040 






MOV 


#40, Rl 


IF 2M PRESENT. ONLY 21ST 


780 002442 


000402 








BR 


4« 


BRANCH 


781 002444 


005726 






3«: 


TST 


(SP)* 


RESTORE STACK 


782 002446 


005726 








TST 


(SP)« 




783 002450 


010237 


000004 




4$: 


MOV 


R2,ERRVEC 


RESTORE TIMEOUT VECTOR 


784 002454 


000207 








RTS 


PC 


RETURN 



SEQ 0022 



785 
786 
787 
788 
789 
790 

791 002456 

792 002462 

793 002466 

794 002472 

795 002476 

796 002500 
797 

798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 

817 002502 
002502 
002504 

818 002506 

819 002512 

820 002516 

821 002520 

822 002522 
002524 

823 002526 
824 

825 



013701 
042701 
012702 
162702 
077103 
000207 



010046 
010146 
013700 
012701 
005020 
077102 
012601 
012600 
000207 



.SBTTL SUBROUTINE - SIZE UNIBUS MEMORY FROM KMQR 

ON RETURN FROM THIS SUBROUTINE R2 WOULD HAVE PAR VALUE 
;* OF UNIBUS MEMORY 



177734 
000040 
007600 
000200 



UMSIZ: 
1«: 



MOV 
BIG 
MOV 
100$ : SUB 
SOB 
RTS 



KMCR.Rl 
#BIT05.R1 
#7600. R2 
#200, R2 
R1.100$ 
PC 



SAVE KMCR 

LEAVE ONLY # OF PAGES 
START U/0 UNIBUS MEMORY 
. SUBTRACT 4K 
. FOR ALL PAGES PRESENT 



SBTTL SUBROUTINE - INITIALIZE THE UBE'S 
* THIS ROUTINE IS USED TO INITIALIZE THE UBE'S 
BGNROUTINE 

SAVE RO Rl 

LET RO ':- FIRST UBE ADDRESS 
DO FOR (RO) :- BEIDB TO BEICRI 
. LET (RO) :« 0 
ENDDO 

RESTORE Rl.RO 
RETURN 

ENOROUTINE 



002202 
000010 



lUBE: 



MOV 


RO.-(SP) 


'iPUSH RO ON STACK 


MOV 


Rl.-CSP) 


;PUSH Rl ON STACK 


MOV 


BEIOB.RO 


POINT RO TO UBE REGISTERS 


MOV 


#10. Rl 


SET UP A LOOP COUNTER 


CLR 


(RO)* 


CLEAR OUT A REGISTER 


SOB 


R1.5* 


HAVE WE INITIALIZED THE UBE 


MOV 


(SP)*.R1 


sPOP STACK INTO Rl 


MOV 


(SP)*.RO 


:POP STACK INTO RO 


RTS 


PC 





I<2 
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SUBROUTINE INITIALIZE THE UBE'S 



sec 0023 



826 
827 
828 
829 



STARTING POINT OF PROGRAM 



830 002530 








START: 
















LCP/ORION ROUTINE TO SAVE EMTULATOR AND PRIORITY 


002530 


005737 


002616 




EMTSAV : 


TST 


SAV30 




FIRST TIME THROUGH ? 


002534 


001034 








BNE 


VMKOR 




BRANCH IF BEEN HERE ALREADY 


002536 


032737 


000040 


000052 




BIT 


«BIT5.a«52 




ARE UE IN UFD MODE ? 


002544 


001430 








BEQ 


VMKOR 




LEAVE IF NOT 


002546 


012737 


177777 


002622 




MOV 


#-1. UFDFLG 




SET UFD FLAG 


002554 


032737 


000100 


000052 




BIT 


«BIT6.S«52 




ARE UE IN QUIET MODE ? 


002562 


001403 








BEQ 


1* 




BR IF NOT 


002564 


012737 


177777 


002624 




MOV 


0-1, UQUIET 




SET QUIET MODE 


002572 


104042 






1$: 


EMT 


42 




GET ADDRESS OF XXDP DCA TABLE 


002574 


005060 


000042 






CLR 


42(R0) 




CLR XXDP* "DRSERR" 


002600 


013737 


000030 


002616 




MOV 


30,SAV30 




SAVE EMULATOR ADDRESS 


002606 


013737 


000032 


002620 




MOV 


32.SAV32 




SAVE EMULATOR PRIORITY LEVEL 


002614 


000404 








BR 


VMKOR 




GET AROUND TAG AREA 


002616 


000000 






SAV30: 


.WORD 


0 




PUT EMULATOR INFO HERE 


002620 


000000 






SAV32: 


.UORD 


0 




PUT PRIORITY LOCATION HERE 


002622 


000000 






UFDFLG: 


.UORO 


0 




USER FRIENDLY MODE FLAG 


002624 


000000 






UQUIET : 


.UORD 


0 




UFD QUIET MODE FLAG 


002626 








VMKOR: 









831 



002626 
002632 
002634 
002640 
002642 

002646 
002654 
002662 
002670 
002676 
002704 
002712 
002720 
002726 
002734 
002740 
002744 
002752 
002760 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
005037 
112737 
012737 
012737 



001100 

001140 

001100 

023360 
000340 
025764 
000340 
026772 
000340 
027056 
000340 
023220 
001164 
001166 
000001 
002752 
002760 



; ********************************************************************** 

.SBTTL INITIALIZE THE COMMON TAGS 

THE COMMON TAGS (ICMTAG) AREA 

s FIRST LOCATION TO BE CLEARED 
: CLEAR MEMORY LOCATION 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
023212 



001115 
001106 
001110 



: : CLEAR 

MOV 
CLR 
CMP 
BNE 

MOV 

; INITIALIZE A 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
MOVB 
MOV 
MOV 



««CMTAG.R6 
(R6)» 
«SUR.R6 ;:OONE? 
.-6 

♦STACK. SP 
FEU VECTORS 
0*SCOPE.a*IOTVEC 
«340.a«I0TVEC«2 
«4 ERROR. S«EMTVEC 
#340.a#EMTVEC»2 
«4TRAP,a«TRAPVEC 



:LOOP BACK IF NO 

J SETUP THE STACK POINTER 



;.IOT VECTOR FOR SCOPE ROUTINE 

{LEVEL 7 

;:EMT VECTOR FOR ERROR ROUTINE 
: LEVEL 7 

;;TRAP VECTOR FOR TRAP CALLS 
#340. a#TRAPVEC*2s LEVEL 7 
«4PURDN,a»PURVEC : ;POUER FAILURE VECTOR 
.LEVEL 7 

;SETUP END -OF -PROGRAM COUNTER 
{INITIALIZE NUMBER OF ITERATIONS 
{CLEAR THE ESCAPE ON ERROR ADDRESS 
sALLOU ONE ERROR PER TEST 
{INITIALIZE THE LOOP ADDRESS FOR SCOPE 
{SETUP THE ERROR LOOP ADDRESS 



«340.a«PURVEC«2 
♦ENDCT.IEOPCT 
♦TIMES 
♦ESCAPE 
#1.*ERMAX 
#, .ILPADR 
#.,*LPERR 



002766 013746 000004 

002772 012737 003026 000004 

OOSOOO 012737 177570 001140 

003006 012737 177570 001142 

003014 022777 177777 176116 

003022 001012 

003024 000403 



{SIZE FOR A HARDUARE SUITCH REGISTER. IF NOT FOUND OR IT IS 
{EQUAL TO A "-1", SETUP FOR A SOFTUARE SUITCH REGISTER. 



MOV S«ERRVEC.-(SP) 

MOV «30000$,S«ERRVEC 

MOV «OSUR.SUR 

MOV <M>OISP. DISPLAY 

CMP «-l.aSUR 

BNE 30002 « 

BR 30001$ 



{SAVE ERROR VECTOR 

t:SET UP ERROR VECTOR 

{SETUP FOR A HARDUARE SUICH REGISTER 
AND A HARDUARE DISPLAY REGISTER 
TRY TO REFERENCE HARDUARE SUR 
BRANCH IF NO TIMEOUT TRAP OCCURRED 
AND THE HARDUARE SUR IS NOT • 1 
BRANCH IF NO TIMEOUT 



L2 
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INITIALIZE THE COMHON TAGS 



SEQ 0024 







01571 6 

VAC • A w 


003034 








030001 ».(SP) 


ss SET UP FOR TRAP RETURN 




003032 

W 


000002 








RTI 








003034 


012737 


000176 


001140 


30001 i : 


MOV 


«SUREG.SUR 


::P0INT TO SOFTUARE SUR 




003042 


012737 


000174 


001142 




MOV 


ODISPREG, DISPLAY 




003050 


012637 


000004 




30002 ( : 


MOV 


(SP)*.9«ERRVEC 


• -RFSTQRF FRROR VFCTQR 




003054 


005037 


001206 






CLR 


IPASS 






003060 


132737 


000200 


001221 




BITB 


«APTSIZE,«ENVM 


••TEST USER SIZE UNDER APT 




003066 


001403 








BEQ 


30003$ 






003070 


012737 


001222 


001140 




MOV 


««SUREG.SUR 


• -NO USF APT SUTTCH RFCTQTFR 




003076 








300031 • 






032 


003076 


005737 


002624 






TST 


UQUIET 


• ARE UE UNDER UFD QUIET MODE 7 


833 


003102 


001056 








BNE 


It 


• YES THEN SKIP THE DIAGNOSTIC TITLE PRINTOUT 


634 


003104 


122737 


000001 


001220 




CMPB 


«APTENV.«ENV 


. APT? 


835 


003112 


001452 








BEQ 


1« 


• IF YES SKIP PRINTOUT 


836 










.SBTTL 


TYPE 


PROGRAM NAME 














: :TYPE 


THE NAME OF THE PROGRAM 


IF FIRST PASS 




003114 


005227 


177777 






INC 


0-1 


! J FIRST TIME? 




003120 


001047 








BNE 


30004 « 


: : BRANCH IF NO 




003122 


022737 


023340 


000042 




CMP 


«IENDAD.S«42 


- : ACT -11? 




003130 


001443 








BEQ 


300041 


; i BRANCH IF YES 




003132 


104401 


003200 






TYPE 


.30005» 


;;TYPE ASCIZ STRING 












, SBTTL 


GET VALUE FOR SOFTWARE 


SUITCH REGISTER 




003136 


005737 


000042 






TST 


9042 


::ARE UE RUNNING UNDER XXDP/ACT? 




003142 


001012 








BNE 


300064 


: {BRANCH IF YES 




003144 


123727 


001220 


000001 




CMPB 


♦ENV.Ol 


::ARE UE RUNNING UNDER APT? 




003152 


001406 








BEQ 


300061 


s {BRANCH IF YES 




003154 


023727 


001140 


000176 




CMP 


SUR.OSUREG 


s, 'SOFTWARE SWITCH REG SELECTED? 




003162 


001005 








BNE 


30007 « 


: {BRANCH IF NO 




003164 


104406 








GTSUR 




{{GET SOFT-SWR SETTINGS 




003166 


000403 








BR 


30007* 






003170 


112737 


000001 


001134 


30006$ : 


MOVB 


«1.«AUT0B 


{{SET AUTO-MODE INDICATOR 




003176 








300071 : 










003176 


000420 








BR 


300041 


{{GET OVER THE ASCIZ 

COKTACO KTJll-B DIAGNOSTIC *<CRLF> 












; J 30005*: 


.ASCIZ <CRLF>« 




003240 








300041: 








837 


003240 


012737 


002266 


000004 


1«: 


MOV 


OTIMOUT . 9»4 


! SETUP TIMEOUT VECTOR FOR UNEXPECTED TIMEOUT 


838 


003246 


012737 


000340 


000006 




MOV 


»340.S«6 




839 


003254 


005037 


001716 






CLR 


TEST 


'; TEST 0 FOR ERROR REPORTING 


640 










i SIZE 


MEMORY 


IN 4K PAGES 




641 


003260 


004737 


002276 






JSR 


PC.MAPPR 


: REMAP PROGRAM AREA 


642 


003264 


052737 


000060 


172516 




BIS 


«BIT05!BIT04.MMR3 ; ENABLE RELOCATION AND 22BITS 


843 


003272 


005237 


177572 






INC 


MMRO 


: ENABLE MMU 


844 


00 276 


004737 


002364 






JSR 


PC.MEMSIZ 


( GET HIGHEST 128K OF MEMORY 


845 


00 302 


005037 


177572 






CLR 


MMRO 


s DISABLE MMU 


846 


00. t06 


005037 


172516 






CLR 


MMR3 




847 


oo : .12 


013737 


172354 


001720 




MOV 


KIPAR6.PMIS 


i STORE HIGHEST PAGE 


848 


001 20 








RESTART 








849 


003 20 


012706 


001100 






MOV 


01100. SP 


{ SET UP THE STACK POINTER 



850 
851 
852 



M2 



KTJII-B DIAGNOSTIC MACRO Y05.02 Friday 29-Mar 85 12:53 Page 11 

TEST UNIBUS MAP REGISTER TESTS 



SEQ 0025 



854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 



003324 

882 
883 
884 
885 

886 003326 

887 003332 

888 003340 
889 

890 
891 

892 003346 

893 

894 

895 

896 003354 

897 003356 
698 003362 

899 003364 

900 003370 

901 003372 

902 003374 

903 003376 

904 003404 

905 003410 

906 003412 

907 003414 



.SBTTL TEST - UNIBUS MAP REGISTER TESTS 

* THIS TEST WILL TRY TO ACCESS ALL THE MAP 

* REGISTERS WITH BOTH MAPPING ENABLED AND 

* DISABLED 



BGNTST 



LET 4:- ADDRESS OF ERROR ROUTINE 
LET 6:- PRIORITY OF 7 

DO FOR BOTH UNIBUS MAP ENABLED AND DISABLED 
DO FOR ADDRESS 170200 TO 170376 
. READ ADDRESS 

IF ADDRESS CAN'T BE READ THEN 
. , TRAP THRU VECTOR 4 
. ENDIF 
ENDDO 
ENDDO 
EXIT TEST 



ERROR : 

REPORT UHICH MAP REGISTER TIMED OUT 
ENDTST 



000004 



013705 
012737 
012737 



• : *************************************************************** 

:*TEST 1 UNIBUS MAP REGISTER RESPONSE TEST 

j ; *************************************************************** 

TSTl: SCOPE 



SET UP MEMORY TIMEOUT VECTOR TO ERROR ROUTINE 



000004 

003424 000004 
000340 000006 



042737 000040 172516 



005001 
012700 
005720 
020027 
001374 
005701 
001406 
042737 
010537 
000417 
005201 
052737 



170200 
170400 



000040 172516 
000004 



000040 172516 





MOV 


9»4.R5 


i SAVE THE TIMEOUT VECTOR 




MOV 


»20$ . 9»4 


; SET UP TIMEOUT VECTOR TO ERROR ROUTINE 




MOV 


»340.9»6 


; SET UP TIMEOUT PRIORITY 


i DISABLE UNIBUS MAPPING 






BIC 


#BIT5,a#SR3 


; DISABLE UNIBUS MAPPING 


! TRY 


TO ACCESS 


ALL THE UNIBUS MAP REGISTERS 


> 


CLR 


Rl 


INITIALIZE LOOP COUNT 


5$: 


MOV 


«MAPLOO , RO 


. RO POINTS TO MAP REGISTER (^0 


10$: 


TST 


(RO)* 


. . TRY TO READ MAP REGISTER 


12$: 


CMP 


R0.«170400 


. . HAVE UE READ ALL THE MAP REGISTERS 




BNE 


10$ 


. . NO THEN GO READ THE NEXT ONE 




TST 


Rl 


. HAVE UE DONE THIS TWICE 7 




BEQ 


15$ 


. GO TURN ON UNIBUS MAP AND TRY AGAIN 




BIC 


»BIT5,SR3 


. TURN OFF UNIBUS MAPPING 




MOV 


R5.9«4 


RESTORE THE TIMEOUT VECTOR 




BR 


TST2 Si . GO TO NEXT TEST 


15$: 


INC 


Rl 


. INCRfcMENT LOOP COUNT 




BIS 


#BIT5.SR3 i 


. TURN ON UNIBUS MAP 



KTJll-B DIAGNOSTIC MACRO YDS. 02 

Tl UNIBUS MAP REGISTER RESPONSE 

908 003422 000755 

909 

910 

911 

912 003424 005726 

913 003426 005726 

914 003430 162700 000002 

915 003434 010037 001122 

916 003440 062700 000002 

917 003444 104001 
916 003446 000746 
919 



N2 

Friday 29-Mar-8S 12:53 Page 11-1 
TEST 

BR 5$ 

'; MAP REGISTER TIMEOUT ROUTINE 

20»: TST (SP)» 

TST (SP)» 

sue «2,R0 

MOV RO,«B0A0R 

ADO «2.R0 

ERROR *1 

BR 12« 



t 



; . GO TRY TO ACCESS THE REGISTERS 



; CLEAN UP THE STACK 

i GET ADDRESS THAT TIMED OUT 

i PUT It IN $BDADR 

; GET NEXT ADDRESS 

s REPORT THAT ACCESS HAS TIMED OUT 



B3 
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TEST UNIBUS riAP REGISTER BIT PATTERN 



SEQ 0027 



921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 



003450 

967 
968 
969 
970 

971 003452 

972 003456 

973 003460 

974 003464 



.SBTTL TEST - UNIBUS MAP REGISTER BIT PATTERN 



I* 

t* 

I 
i 
i 



J* 

2* 



THIS TEST IS DESIGNED TO DETECT ANY STUCK 
AT BITS OR SHORTED BITS IN THE UNIBUS MAP 
REGISTERS 

BGNTST 

CLEAR ALL HAP REGISTERS 

00 FOR ADDRESS :- 170200 TO 170376 

CHECK LOU MAPPING REGISTERS 



READ ADDRESS 

IF ADDRESS NE 0 THEfO 

ERROR MAP REGISTER DID NOT CLEAR 
ENDIF 

DO FOR PATTERNS :- 377.7417.1463,52525.125252 
WRITE PATTERN INTO ADDRESS 
READ PATTERN 

IF CONTEN.S OF ADDRESS NE PATTERN THEN 

ERROR IN BITS OF ADDRESS 
ENDIF 
ENDDO 

LET ADDRESS :- ADDRESS * 2 



CHECK HIGH MAPPING REGISTERS 



READ ADDRESS 
IF ADDRESS NE 0 THEN 

ERROR MAP REGISTER DID NOT CLEAR 
ENDIF 

DO FOR PATTERNS 17,14,25,52 
URITE PATTERN INTO ADDRESS 
READ PATTERN 

IF CONTENTS OF ADDRESS NE PATTERN THEN 
. ERROR IN BITS OF ADDRESS 
ENDIF 
ENDDO 
ENOOO 



ENOTST 



000004 



012700 
005020 
020027 
001374 



• • ********************************* ****************************** 

:*TEST 2 UNIBUS MAP REGISTER BIT PATTERN TEST 

; ; *************************************************************** 

TST2: SCOPE 



170200 
170400 



CLEAR ALL MAP REGISTERS 



5»: 



MOV 
CLR 
CMP 
6NE 



»MAPLOO,RO 
(RO)* 

R0,«1 70400 
5) 



: GET ADDRESS TO 1ST MAP REGISTER 

I . CLEAR THE MAP REGISTER 

J . HAVE WE CLEARED ALL THE MAP REGISTERS ? 

s . NO THEN GO CLEAR THE NEXT ONE 



C3 
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T2 UNIBUS MAP REGISTER BIT PATTERN TEST 



SEQ 0028 



TEN 



975 
976 
977 
978 

979 003466 

980 003472 

981 003474 

982 003476 

983 003502 

984 003510 

985 003514 

986 003516 

987 003522 

988 003524 

989 003526 

990 003532 

991 003534 



TEN 



992 003536 

993 003542 

994 003546 

995 003552 

996 003554 

997 003556 
998 

999 
1000 
1001 

1002 003560 

1003 003564 

1004 003566 

1005 003570 

1006 003574 

1007 003602 

1008 003606 

1009 003610 

1010 003614 

1011 003616 

1012 003620 

1013 003624 

1014 003626 



1015 003630 

1016 003634 

1017 003640 

1018 003644 

1019 003646 

1020 003650 
1021 

1022 
1023 

1024 003652 

1025 003656 

1026 003662 
1027 

1028 



012700 
005710 
001410 
011037 
012737 
010037 
104002 
012701 
011110 
011102 
042702 
020210 
001407 

011037 
010237 
010037 
104003 
005721 
001361 



062^00 
005710 
001410 
011037 
012737 
010037 
104002 
012701 
011110 
011102 
042702 
020210 
001407 

011037 
010237 
010037 
104003 
005721 
001361 



062700 
020027 
001303 



170200 



001126 
000000 
001122 

001774 



000001 



001126 
001124 
001122 



000002 



001126 
000000 
001122 

002024 



177700 



001126 
001124 
001122 



000002 
170400 



I 00 A READ. URITE. READ ON THE REGISTERS TO 

t VERIFY ALL THE BITS OF THE LOU MAP REGISTERS 



10$: 



001124 



15»: 
20$: 



25$: 



MOV 


omaploo.ro 


; GET ADDRESS TO 1ST MAP REGISTER 


TST 


(RO) 


I . IS THE MAP REGISTER CLEAR ? 


BEQ 


15$ 


J . VES.THEN GO CHECK THE BITS 


MOV 


(RO), $BODAT 


s . NO. THEN GET THE BAO DATA 


MOV 


«0. $GOOAT 


: . GET THE GOOD DATA 


MOV 


RO,$B0A0R 


t . GET THE ADDRESS THAT DID NOT CLEAR 


ERROR 


*2 


; . ERROR - REGISTER HID NOT CLEAR 


MOV 


»PTRN16.R1 


i . GET POINTER TO PATTCRN TABLE 


MOV 


(RD.CRO) 


{ . . MOVE PATTERN TO MAP REGISTER 


MOV 


(R1}.R2 


8 . . MOVE COPY OF PATTERN TO R2 


BIC 


»BIT0,R2 


. . CLEAR BITO OF THE PATTERN 


CMP 


R2.(R0) 


; . . DID PATTERN GET WRITTEN CORRECTLY ? 


BEQ 


25$ 


5 . . YES. THEN GO SEE IF ALL PATTERNS HAVE BEEN 


MOV 


(RO},$BD0AT 


: . . NO. GET THE BAD DATA 


MOV 


R2.$G00AT 


: . . GET THE GOOD DATA 


MOV 


RO.$BDADR 


s . . GET THE ADDRESS OF DATA FAULT 


ERROR 


♦ 3 


; . . ERROR - REGISTER COULD NOT HOLD PATTERN 


TST 


(Rl)» 


: . . ARE UE THROUGH THE TABLE 7 


BNE 


20$ 


: . . NO THEN GO URITE NEXT PATTERN 



DO A READ. URITE. READ ON THE REGISTERS TO 
VERIFY ALL THE BITS OF THE HIGH MAP REGISTERS 



001124 



30$: 



35$; 
40$ I 



45$: 



ADD 


«2.R0 


! . POINT TO THE HIGH MAPPING REGISTER 


TST 


(RO) 


; . IS THE MAP REGISTER CLEAR ? 


BEQ 


35$ 


; . YES. THEN GO CHECK THE BITS 


MOV 


(RO).$BODAT 


: . NO. THEN GET THE BAD DATA 


MOV 


«0.$GDDAT 


: . GET THE GOOD DATA 


MOV 


RO.$BDADR 


: . GET THE ADDRESS THAT DID NOT CLEAR 


ERROR 


♦2 


: . ERROR - REGISTER DID NOT CLEAR 


MOV 


«PTRN6.R1 


s . GET POINTER TO PATTERN TABLE 


MOV 


(RD.CRO) 


; . . MOVE PATTERN TO MAP REGISTER 


MOV 


(R1).R2 


; . . MOVE COPY OF THE PATTERN TO R2 


BIC 


♦177700. R2 


s . . MASK OUT THE UPPER 10 BITS 


CMP 


R2.(R0) 


i . . DID PATTERN GET URITTEN CORRECTLY ? 


BEQ 


45$ 


i . . YES. THEN GO SEE IF ALL PATTERNS HAVE BEEN 


MOV 


(RO).$BDDAT 


: . . NO. GET THE BAD DATA 


MOV 


R2.$GDDAT 


; . . GET THE GOOD DATA 


MOV 


RO.$BDADR 


: . . GET THE ADDRESS OF DATA FAULT 


ERROR 


*3 


s . . ERROR - REGISTER COULD NOT HOLD PATTERN 


TST 


(Rl)» 


8 . . ARE UE THROUGH THE TABl F ? 


BNE 


40$ 


8 . . NO THEN GO URITE NEXT PATTERN 



SEE IF UE HAVE CHECKED ALL THE MAP REGISTERS 



ADD 
CMP 
BNE 



02. RO 

RO, 0170400 
10$ 



POINT TO NEXT REGISTER 

ARE UE THROUGH ALL THE MAP REGISTERS 

GO CHECK THE NEXT REGISTER 



D3 
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TEST • UNIBUS MAP REGISTER ADDRESS UNIQUENESS 



SEQ 0029 



1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1030 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1046 

1049 

1050 

1051 

1052 



003664 000004 

1053 
1054 
1055 
1056 

1057 003666 012700 

1058 003672 012701 

1059 003676 010021 

1060 003700 062700 

1061 003704 022700 

1062 003710 001372 
1063 
1064 
1065 

1066 003712 012700 

1067 003716 012701 

1068 003722 020021 

1069 003724 001406 

1070 003726 010037 

1071 003732 016137 

1072 003740 104004 
1073 
1074 
1075 

1076 003742 062700 

1077 003746 010002 

1078 003750 042702 

1079 003754 020221 

} 

1080 003756 001406 
REGISTERS 

1081 003760 010237 

1082 003764 016137 

1063 003772 104004 



.SBTTL TEST UNIBUS MAP REGISTER ADDRESS UNIQUENESS 



* THIS TEST IS DESIGNED TO DETECT ANY DUAL ADDRESSING 

* IN THE UNIBUS MAP ADDRESSING LOGIC 



BGNTST 



DO FOR ADDRESS 170200 TO 170376 

URITE «A00RESS TO ADDRESS 
ENOOO 

00 FOR ADDRESS :■ 170200 TO 170376 
READ ADDRESS 

IF CONTENTS OF ADDRESS NE ADDRESS THEN 
. . REPORT ERROR IN ADDRESSING 
. ENOIF 
ENOOO 



ENOTST 



!*TEST 3 UNIBUS MAP REGISTER UNIQUENESS TEST 

TST3: SCOPE 



URITE ADDRESS INTO ALL MAP REGISTERS 



170200 
170200 

000002 
170400 



170200 
170200 



5$: 



10(: 



001120 

177776 001122 



000002 
177700 



001120 

177776 001122 



15(; 



MOV 


«MAPLOO,RO 




; GET ADDRESS OF 1ST MAP REGISTER 






MOV 


»MAPL00.R1 




! GET ADDRESS OF 1ST MAP REGISTER 






MOV 


R0.CR1}« 




i . URITE ADDRESS TO ITSELF 






ADD 


«2.R0 




. GET THE NEXT ADDRESS 






CMP 


#170400, RO 




! . HAVE UE URITTEN TO ALL MAP REGISTERS ? 






BNE 


5» 




. NO. THEN GO URITE TO NEXT ADDRESS 






SURE EACH LOU HAP REGISTER 


CONTAINS ITS ADDRESS 






MOV 


OMAPLOO.RO 




GET ADDRESS TO 1ST MAP REGISTER 






MOV 


#MAPL00,R1 




GET ADDRESS TO 1ST MAP REGISTER 






CMP 


RO.CRD* 




. UAS THE ADDRESS URITTEN TO THE MAP REGISTER 


J 


BEQ 


15* 




. YES. THEN GO CHECK THE HIGH MAP REGISTER 






MOV 


RO,$G0A0R 




. GET THE GOOD ADDRESS 






MOV 


-2(R1}.$B0ADR 




. GET THE BAD ADDRESS 






ERROR 


«4 


i . ERROR IN ADDRESSING OF MAP REGISTERS 






SURE EACH HIGH MAP REGISTER 


CONTAINS ITS ADDRESS 






ADD 


«2,R0 


i 


. POINT RO TO HIGH MAP REGISTER 






MOV 


R0,R2 


1 


. PUT A COPY OF IT INTO R2 






BIC 


#177700. R2 


1 


. MASK OUT THE UPPER 10 BITS 






CMP 


R2.(R1)* 


i 


. UAS THE ADDRESS URITTEN TO THE HIGH MAP 


REGISTER 


BEQ 


20« 


I 


. YES. THEN GO CHECK IF UE ARE THROUGH AlL 


THE 


MAP 


MOV 


R2.«G0ADR 


j 


. GET THE GOOD ADDRESS 






MOV 


-2CR1).(B0ADR 


i 


. GET THE BAD ADDRESS 






ERROR 


*4 


i 


ERROR IN ADDRESSING OF MAP REGISTERS 







E3 
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SEQ 0030 

T3 UNIBUS MAP REGISTER UNIQUENESS TEST 

1084 : 

1085 ! CHECK TO SEE IF UE HAVE CHECKED ALL MAP REGISTERS 
1086 



1087 003774 062700 000002 20*: ADD 02. RO 

1088 004000 020027 170400 CMP RO. #170400 

1089 004004 001346 BNE 10$ 
1090 

1091 
1092 



GET THE NEXT REGISTER 

HAVE UE CHECKED ALL THE MAPPING REGISTERS 
NO, THEN GO CHECK THE NEXT REGISTER 



F3 
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TEST • UNIQENESS BETUEEN LOU MAP REGISTERS AND HIGH MAP REGIST 



SEQ 0031 



1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 



004006 

1119 
1120 
1121 
1122 

1123 004010 

1124 004014 

1125 004020 

1126 004024 
1127 

1128 
1129 

1130 004026 

1131 004032 

1132 004034 

1133 004036 

1134 004040 
EGISTERS 

1135 004042 

1136 004044 

1137 004050 

1138 004054 

TLY 

1139 
1140 
1141 

1142 004056 

1143 004062 
1144 



.SBTTL TEST UNIQENESS BETUEEN LOU MAP REGISTERS AND HIGH MAP REGISTERS 

* THIS TEST IS DESIGNED TO TEST THE UNIQUENESS BETUUEN THE LOU 

* AND HIGH MAP REGISTERS 



BGNTST 



DO FOR ADDRESS 170200 TO 170374 

URITE #77777 TO ADDRESS 
ENDDG 

DO FOR ADDRESS :- 170200 TO 170374 BY 4 
LET R2 :- CONTENTS OF ADDRESS 
LET R3 :- CONTENTS OF ADDRESS * 2 
LET R3 :- R3 - R2 
IF R3 EG 0 THEN 

. ERROR IN DIFFERENTIATING BETUEEN HI AND LO REGISTERS 
ENDIF 
ENDDO 



ENDTST 



000004 



012700 
012720 
020027 
001373 



012700 
012002 
012003 
160302 
003006 

024040 
012037 
012037 
104005 



!*TEST 4 HIGH AND LOU MAP REGISTER UNIQUENESS TEST 

i ; *************************************************************** 

TST4: SCOPE 



170200 
077777 
170400 



170200 



URITE #77777 TO ALL ADDRESSES 

MOV #MAPLOO.RO 

5$: MOV #77777, (RO)* 

CMP RO. #170400 

BNE 5« 



GET ADDRESS OF FIRST MAP REGISTER 

. URITE 77777 TO MAP REGISTER 

. HAVE UE URITTEN TO ALL REGISTERS 7 

. NO, THEN 60 URITE TO THE NEXT REGISTER ? 



MAKE SURE THAT HIGH MAP REGISTER BITS 6-15 ARE CLEARED 



10$: 



001124 
001126 



020027 170400 
001363 



15* 



MOV 


#MAPLOO.RO 


MOV 


(R0)*,R2 


MOV 


(R0)».R3 


SUB 


R3.R2 


E)GT 


15$ 


CMP 


-(RO).-(RO) 


MOV 


(RO)*.*GDDAT 


MOV 


(RO)*.*BDDAT 


ERROR 


♦ 5 


WE HAVE CHECKED ALL 


CMP 


RO, #170400 


BNE 


10$ 



GET ADDRESS OF FIRST MAP REGISTER 
GET CONTENTS OF LOU MAP REGISTER 
GET CONTENTS OF HIGH MAP REGISTER 
DID THE REGISTERS GET ADDRESSED CORRECTLY ? 
YES. THEN GO SEE IF UE HAVE CHECKED ALL THE MAP R 

NO. POINT TO THE LOU MAP REGISTER 
GET CONTENTS OF LOU MAP REGISTER 
GET CONTENTS OF HIGH MAP REGISTER 
ERROR - MAP REGISTERS UERE NOT ADDRESSED CORREC 



HAVE UE CHECKED ALL THE REGISTERS 
NO. THEN GO CHECK THE NEXT PAIR !!! 
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G3 
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TEST - DCSR REGISTER RESPONSE TEST 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 



004064 000004 

1192 
1193 
1194 
1195 

1196 004066 012737 004240 000004 

1197 004074 012737 000340 000006 
1198 

1199 



SEQ 0032 



.SBTTL TEST - DCSR REGISTER RESPONSE TEST 



* THIS TEST IS DESIGNED TO SEE IF WE CAN ACCESS THE 

* DIAGNOSTIC CONTROLLER STATUS REGISTER. IF WE CAN IT 

* TESTS OUT BITS 3-6.9-14 OF THE DCSR AND HAKES SURE 

* THAT A BUS INIT HAS A PROPER RESPONSE IN THE DCSR. 



BGNTST 

LET 4 ADDRESS OF ERROR ROUTINE 
LET 6 PRIORITY OF 7 
LET ADDRESS :- 177730 
READ ADDRESS 

CHECK BITS 3-6.9 14 OF THE DCSR REGISTER 

LET DCSR :» DCSR .OR. 07 7170 
READ DCSR 

IF DCSR .AND. «77160 NE 0 THEN 

. REPORT ERROR IN BITS 3-6,9-14 OF THE DCSR REGISTER 
ENOIF 

CHECK OUT THE DCSR RESPONSE TO A RESET 

CACHE THE RESET INSRUCTION 
LET DCSR DCSR .OR. «206 
DO A RESET TO INITIALIZE THE BUS 
IF LOWER BYTE OF DCSR GE 0 THEN 

REPORT ERROR (BIT 7 DID NOT GET SET BY BUS INIT) 
ELSE 

. LET DCSR :- DCSR .AND. #6 
. IF DCSR NE 0 THEN 

. . REPORT ERROR (BITS 1.2 DIDN'T CLEAR ON BUS INIT) 
. ENDIF 
ENDIF 
EXIT TEST 
ERROR : 

REPORT THAT ACCESS TO DCSR HAS TIMED OUT 
ENDTST 



; ******************************* 

j*TEST 5 DCSR REGISTER TEST 

; ;*************************************************************** 

TST5: SCOPE 



SET UP MEMORY TIMEOUT VECTOR 



MOV 
MOV 



#20$.S«4 
#340. S#6 



SET UP VECTOR PC TO ERROR ROUTINE 
SET UP VECTOR PSU TO PRIORITY 7 



: READ ADDRESS OF DCSR TO SEE IF IT TIMES OUT 



H3 
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T5 DCSR REGISTER TEST 



SEQ 0033 



1200 








1201 


004102 


005737 


177730 


1202 


004106 


012737 


002266 


1203 








1204 








1205 








1206 


004114 


052737 


077170 


1207 


004122 


032737 


077160 


1208 


004130 


001412 




1209 


004132 


013701 


177730 


1210 


004136 


0427(,j. 


100607 


1211 


004142 


010137 


001126 


1212 


004146 


012737 


000010 


1213 


004154 


104006 




1214 








1215 








1216 








1217 


004156 


012737 


000200 


1218 


004164 


053737 


177730 


1219 


004172 


005737 


004204 


1220 








1221 








1222 








1223 


004176 


052737 


000006 


1224 


004204 


000005 




1225 


004206 


032737 


000200 


1226 


004214 


001001 




1227 


004216 


104007 




1228 


004220 


032737 


000006 


1229 


004226 


001410 




1230 


004230 


013737 


177730 


1231 


004236 


104007 




1232 








1233 








1234 








1235 


004240 


012737 


177730 


1236 


004246 


104010 




1237 








1238 









TST 

nov 



9«DCSR 
«TinOUT,S«4 



WILL THE OCSR TIMEOUT 7 
RESTORE TIMEOUT VECTOR 



TRY TO URITE ONES TO BITS 3-6 AND 9-14 ( BIT 03 SHOULD STAY WRITTEN) 



BIS #77170. a#DCSR 

BIT 077160. a#OCSR 

BEQ St 

MOV aODCSR.Rl 

BIC #100607. Rl 

MOV Rl , IBDDAT 

MOV #10 *':onAT 

ERROR *6 

CACHE THE RESET INSTRUCTION 

5i: MOV «BIT7.$GDDAT 

BIS DCSR,$GODAT 

TST 10* 



TRY TO URITE TO READ ONLY BITS 
DID THEY GET WRITTEN TO 7 

NO. THEN GO CHECK THE EFFECT OF A RESET ON THE OCSR 
GET COPY OF DCSR INTO Rl 
MASK OUT UNTESTED BITS 
PUT THEM INTO BAD DATA 
GOOD DATA 

ERROR IN BITS 3-6.9 14 OF OCSR 



ONLY 7 SHOULD BE SET AFTER RESET 
SET BOOT BITS 
CACHE THE RESET 



SET UP OCSR, DO A RESET ^hKE SURE PROPER RESPONSE OCCURS 



BIS «6.9«0CSR 
10$ : RESET 

BIT #BIT7.a«0CSR 

BNE 15$ 

ERROR *7 

154: BIT #6.a#DCSR 

BEQ TST6 

MOV a«0CSR.iB00AT 

ERROR *7 

ERROR ROUTINE 



20$: MOV #DCSR.$BDADR 
ERROR *10 



SET BIT 7 AND CLEAR BIT 1.2 
DO A BUS INIT 
DID BIT 7 GET SET 7 

YES. THEN GO CHECK IF BITS 1.2 GOT CLEAR 
NO, THEN ERROR - BIT 7 DIDN'T GET SET 
DID BIT 1.2 GET CLEARED ? 
YES. THEN GO TO NEXT TEST 

: NO. THEN GET CONTENTS OF THE DCSR 
! ERROR BIT 1.2 DID NOT GET CLEAR 



GET ADDRESS OF THE DCSR 

ERROR - OCSR REGISTER ACCESS HAS TIMED OUT 



KTJll-B DIAGNOSTIC 

TEST - KMCR BITS TEST 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
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004250 

1261 
1262 
1263 
1264 
1265 

1266 004252 

1267 004260 

1268 004266 

1269 004274 

1270 004302 

1271 004310 

1272 004316 

1273 004320 

1274 004324 
1275 

1276 
1277 

1278 004326 

1279 004332 

1280 004334 

1281 004340 

1282 004346 

1283 004352 

1284 004356 

1285 004362 

1286 004364 

1287 004372 

1288 004376 

1289 004404 

1290 004412 
THE KMCR 

1291 004414 
004414 

1292 



000004 



012737 
012737 
013737 
012737 
042737 
022737 
001003 
005037 
000440 



013701 
005101 
042701 
042737 
042701 
050137 
020137 
001014 
013737 
010137 
012737 
013737 
104011 



000404 



SEQ 0034 



.SBTTL TEST - KMCR BITS TEST 



* THIS TEST CHECKS THAT OUT OF DIAGNOSTIC MODE (DCSR<8>-0). WRITE ACCESS 

* TO KMCR<5-0> IS DISABLED. 



BGNTST 



LET 4 ADDRESS OF TIMEOUT ROUTINE 

LET 6 PRIORITY OF TIMEOUT ROUTINE 

READ THE MEMORY CONFIGURATION FROM THE EAROM 

CHECK THAT IF DCSR<8>«0 WRITE ACCESS TO KMCR<5-0> DISABELD 

IF NOT THEN 

. ERROR 

ENDIF 



ENDTST 



;*TEST 6 KMCR MEMORY CONFIGURATION BITS TEST 

TST6: SCOPE 



SETUP TIMEOUT VECTOR. TO ERROR ROUTINE 
VERIFY THAT AT LEAST SOME PMI MEMORY PRESENT 



004416 
000340 
177734 
002266 
177700 
000077 

001720 



177734 

177700 
000400 
000010 
177734 
177734 

177734 
001126 
177734 
001160 



000004 
000006 
001160 
000004 
001160 
001160 



MOV «10«.9»4 

MOV «340,9«6 

MOV KMCR.ITMPO 

MOV «TIM0UT,9«4 

BIC #177700. ITMPO 

CMP #77.*TMP0 

BNE 2* 

CLR PMIS 

BR TST7 



SET VECTOR PC TO ERROR ROUTINE 
SET VECTOR PSU TO ERROR ROUTINE 
STORE KMCR 

RESTORE TIMEOUT VECTOR 
CLEAR ALL BUT U. MEMORY 
NO PMI MEMORY? 
IF SOME. 60 TO THE NEXT TEST 
OTHERWISE FLAG NO PMI MEMORY 
AND EXIT TEST 



CHECK THAT NOT IN DIAGNOSTIC MODE WRITE ACCESS TO KMCR<S-0> IS DISABLED 



2$. 



177730 



001124 

001122 
177734 



1$: 



MOV 


Kf T.Rl 


COM 


Rl 


BIC 


#177700. Rl 


BIC 


#BIT08.DCSR 


BIC 


#BIT03.R1 


BIS 


Rl.KMCR 


CMP 


Rl.KMCR 


BNE 




MOV 


KMCR.JGOOAT 


MOV 


Rl . iBDDAT 


MOV 


»KMCR,$BDADR 


MOV 


♦TMPO.KMCR 


ERROR 


«11 


BR 


TST7 



STORE PATTERN FROM KMCR TO Rl 

COMPLEMENT THE PATTERN 

CLEAR BITS <15-6> 

MAKE SURE THAT NOT IN DIAGN. MODE 

ENABLE 32K, IN CASE OF ERROR 

TRY TO WRITE TO KMCR<5-0> 

WRITTEN OK? 

IF DIDN'T WRITE. BRANCH 
NO. THEN GET THE GOOD DATA 

GET THE BAD DATA 

GET THE ADDRESS OF THE KMCR 
RESTORE KMCR 

NO. THEN ERROR BITS DID NOT GET SET CORRECTLY IN 



GO TO THE NEXT TEST 



J3 
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T6 KMCR MEMORY CONFIGURATION BITS TEST 

; TIMEOUT ROUTINE 



SEQ 0035 



1293 
1294 

1295 004416 

1296 004424 



012737 
104012 



177734 001122 10» i 



MOV «KMCR . $B0A0R 
ERROR *12 



GET THE ADDRESS OF THE KMCR 

ERROR MEMORY TIMEOUT HAS OCCURED 



I<3 
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TEST - UNI8US TIMEOUT TEST 



SEQ 0036 



1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 



■SBTTL TEST UNIBUS TIMEOUT TEST 

* THIS TEST CHECKS OUT THE UNIBUS TIMEOUT LOGIC 

* BEFORE IT IS USED IN ANY TESTS 

BGNTST 

LET 4 :- THE ADDRESS 10* 
LET 6 :« #340 

MAKZ SURE THAT UBA IS IN DIAGNOSTIC M0DE.DCSR<8> IS SET 
READ UNIBUS LOCATION 
IF NO TIMEOUT THEN 

ERROR - UBA DIDN'T TIMEOUT ON UNIBUS ACCESS IN DIAGNOSTIC MODE 
ENDIF 

10*: CLEAN UP THE STACK 
ENDTST 



1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 



004426 000004 



i *************************************************************** 

♦TEST 7 l^IBUS TIMEOUT TEST 

; *************************************************************** 

TST7: SCOPE 



SET UP MEMORY TIMEOUT VECTOR AND PUT UBA INTO DIAGNOSTIC MODE 



004430 
004434 
004436 
004444 

004452 



004460 
004464 
004466 



004470 
004472 
004474 

004502 



005737 
001425 
012737 
012737 
052737 



005737 
104036 
000402 



005726 
005726 
012737 
042737 



001720 

004470 
000340 
000400 



170002 



000004 
000006 
177730 



TST 
BEQ 
MOV 
MOV 
BIS 



PMIS 
TSTIO 
«10*,9«4 
#340. 9«6 
#BIT8.DCSR 



READ A UNIBUS LOCATION 



TST a#170002 
ERROR *36 
BR 11* 



TIMEOUT ROUTINE 



: ANY PMI MEMORY? 
;; IF NONE. EXIT TEST 

SET UP TIMEOUT VECTOR TO END OF TEST 



PUT UBA INTO DIAGNOSTIC MODE 



TRY TO READ UBE REGISTER 7 
ERROR - SHOULD TIMEOUT HERE 
GO TO THE NEXT TEST 



002266 
000400 



10*1 

000004 11*1 
177730 



TST 
TST 
MOV 
BIC 



(SP)* 
(SP)» 

«TIM0UT,S«4 
«BIT8.DCSR 



CLEAN UP THE STACK 
RESTORE TIMEOUT VECTOR 



L3 
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TEST - DATA OUT WITHOUT RELOCATION 



SEQ 0037 



1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1356 

1359 

1360 

1361 

]362 

1363 

1364 

1365 

1366 

1367 

1366 

1369 

1370 

1371 

1372 

1373 

1374 



.SBTTL TEST - DATA OUT WITHOUT RELOCATION 



* THIS TEST WILL PERFORM DIAGNOSTIC DATA OUT CYCLES WITHOUT ENABLING 

* RELOCATION. THE CYCLES WILL BE VERIFIED TO WORK CORRECTLY AND 

* DIAGNOSTIC NPR REGISTER WILL BE CHECKED TO BE ABLE TO STORE PROPER 

* DATA. 



BGNTST 



MAKE SURE THAT DIGNOSTIC MODE IS ON DCSR<8>-1 
SELECT DIAGNOSTIC NPR THRU DDR BY DCSR<2-l>-<0,0> 
LET TEST.LOCATION - 0 

DO FOR PATTERN - 377.7417,31463.52525.125152 (BINARY DIVIDE) 
CALL DIAGNOSTIC_DATA_OUT <TEST_LOCATION.PATTERN> 
IF DDR NE PATTERN THEN 

ERROR IN PATH 
ENOIF 

IF TEST.LOCATION NE PATTERN THEN 

ERROR PERFORMINDG DATA OUT 
ENDIF 
ENDDO 



ENDTST 



004510 000004 



1375 



1376 


004512 


005737 


001720 






TST 


PMIS 


1377 


004516 


001451 








BEQ 


TSTll 


1378 


004520 


052737 


000400 


177730 




BIS 


0BIT08.DCSR 


1379 


004526 


042737 


000006 


177730 




BIC 


«6IT02!BIT01.DCSR 


1380 


004534 


012702 


001774 






MOV 


«PTRN16,R2 


1381 


004540 


012701 


001160 






MOV 


*ITMP0.R1 


1382 


004544 


005011 








CLR 


CRl) 


1383 


004546 


032737 


000200 


177730 




BIT 


«IT07.DCSR 


1384 


004554 


001001 








BNE 


1» 


1385 


004556 


104017 








ERROR 


♦ 17 


1386 


004560 


011237 


001124 




li: 


MOV 


(R23.IGDDAT 


1387 


004564 


004737 


002242 






JSR 


PC.DDOUT 


1388 


004570 


023737 


177732 


001124 




CMP 


DDR.IGDDAT 


1389 


004576 


001404 








BEQ 


21 


1390 


004600 


013737 


177732 


001126 




MOV 


DDR.IBDDAT 


1391 


004606 


104013 








ERROR 


♦ 13 


1392 


004610 


023737 


001160 


001124 


2i: 


CMP 


»TMPO,»GDDA' 


1393 


004616 


001404 








BEQ 


3« 


1394 


004620 


013737 


001160 


001126 




MOV 


♦TMPO.IBDOAT 


1395 


004626 


104014 








ERROR 


♦ 14 


1396 


004630 


005722 






3«: 


TST 


(R2)* 


1397 


004632 


001352 








BNE 


li 


1398 


004634 


042737 


000400 


177730 




BIC 


«BITS,DCSR 



s*TEST 10 DATA OUT WITHOUT RELOCATION 

TSTIO: SCOPE 

I ANY PMI MEMORY? 
IF NONE, EXIT TEST 

i MAKE SURE DIAGNOSTIC MODE IS ON 
t MAKE SURE NPR REGISTER IS SELECTED 
s POINT TO BINARY DIVIDE PATTERN 
I STORE TEST LOCATION 
CLEAR TEST LOCATION 
READY BIT SET? 
IF SO, BRANCH 
i DCSR<7> NOT SET 
. STORE PATTERN 
. PERFORM DIAGNOSTIC DATA OUT 
. DDR HAS PROPER PATTERN 
. IF YES. BRANCH 
. STORE DDR FOR ERROR REPORTS 
. ERROR IN DATA PATH 
. DATA OUT OK? 
. BRANCH, IF YES 

. STORE MEMORY FOR ERROR REPORTS 
. ERROR IN DATA OUT 
. LAST PATTERN? 
. IF NOT, BRANCH 



M3 
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TEST • DATA IN WITHOUT RELOCATION 



SEO COSH 



1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1400 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

14ia 

1419 

1420 



1421 
1422 
1423 
1424 
1425 
1426 
1427 
1426 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1436 
1439 



004642 000004 



004644 
004650 
004652 
004660 
004666 
004672 
004676 
004704 



004712 
004720 
004722 
004730 
004732 
004734 
004736 



005737 
001435 
052737 
042"'37 
012702 
011237 
052737 
013737 



023737 
001404 
013737 
104015 
005722 
001356 
042737 



SBTTL TEST - DATA IN WITHOUT RELOCATION 

* THIS TEST WILL PERFORM DIAGNOSTIC DATA IN CYCLE AND VERIFY ITS 

* OPERATION 



BGNTST 



MAKE SURE THAT OIGNOSTIC MODE IS ON 0CSR<8>-1 

SELECT DIAGNOSTIC NPR THRU DDR BY DCSR<2-l>-<0.0> 

LET PATTERN - 52525 

LET OCSR<0> - #1 

WRITE PATTERN TO TEST LOCATION 

IF DOR NE PATTERN THEN 

ERROR PERFORMING DATA IN 
ENDIF 



ENDTST 



♦TEST 11 
TSTll: SCOPE 



DATA IN WITHOUT RELOCATION 



001720 

000400 177730 
000006 177730 
001774 
001124 

000001 177730 
001124 001160 



177732 001124 
177732 001126 

000400 177730 



5«: 



TST PMIS 

BEQ TST12 : { 

BIS «6IT06,DCSR 

BIC «6IT02'BIT01,0CSR 

MOV «PTRN16,R2 

MOV (R2).*G00AT 

BIS «BITOO,DCSR 

MOV »GODAT.$TMPO 



NOW COMPARE THE RESULTS 



10*1 



CMP 

BEQ 

MOV 

ERROR 

TST 

BNE 

BIC 



DOR . «GODAT 
10* 

00R.«B00AT 
♦ 15 
CR2)» 
5$ 

«6IT08.0CSR 



; ANY PMI MEMORY? 
IF NONE. EXIT TEST 

; MAKE SURE DIAGNOSTIC MODE IS ON 

» MAKE SURE NPR REGISTER IS SELECTED 

; GET TEST PATTERN TABLE 

I USE TEST PATTERN 

: SET GO BIT 

; STORE PATTERN IN TEST LOCATON 



DOR GOT DATA OK? 
IF NO. ERROR 

STORE DOR FOR ERROR REPORTS 
ERROR IN DATA IN 
ARE WE DONE? 
NO 



KTJll-B DIAGNOSTIC 

TEST ■ CONTENT OF OOR 

1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1456 
1459 



1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1466 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1476 
1479 
1480 



004744 
004746 
004752 
004754 
004762 
004770 
004774 
00«iOOO 
005002 
005006 
005012 
005014 
005020 
005022 
005030 
005036 
005040 
005046 
OOSOSO 
005056 
005060 



000004 
005737 
001445 
052737 
052737 
012703 
005037 
005001 
004737 
022703 
001403 
005737 
001413 
012737 
032737 
001404 
013737 
104016 
062737 
077330 
042737 
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SEQ 0039 



.SBTTL TEST - CONTENT OF DDR 

THIS TEST VERIFIES THAT IF DCSR<2-1> ARE NOT ZERO. DOR IS ALWAYS 
;* READ AS 0, MEANING THAT NONE OF THE UNIBUS LINES ARE STUCK. 



BGNTST 



DO FOR DCSR<2-1> FROM <0,1> TO <1.1> 

. DO DATI 

. IF DDR NE 0 THEN 

. . ERROR IN UNIBUS LINES 

. ENOIF 

ENDDO 



ENOTST 



001720 

000400 
000002 
000003 
001124 

002254 
000001 

177732 

177400 
000373 

177732 

000002 

000400 



;*TEST 12 CONTENT OF DDR 

I ; ******* 

TST12: 



*********************************** 
*********************************** 



177730 
177730 



001124 
177732 

001126 

177730 

177730 



II: 



21: 



31: 



SCOPE 






TST 


PMIS 


ANY PMI MEMORY? 
TEST 


BEQ 


TST 13 .} IF NONE, EXIT 


BIS 


MIT08.0CSR 


MAKE SURE IN OIAG. MODE 


BIS 


oeiTOl.DCSR 


START WITH 1 IN DCSR 


MOV 


*3.R3 


DO 3 TIMES 


CLR 


IGDDAT 


RECIEVED DATA 0 


CLR 


Rl 


. ADDRESS 0 


JSR 


PC, ODIN 


i . DO DIAGNOSTIC DATI 


CMP 


#1.R3 


. CONTROL LINES SELECTED? 


BEQ 


21 


. IF YES. CHECK IT 


TST 


DOR 


. ALL ZEROES? 


BEQ 


31 


. IF YES. BRANCH 


MOV 


#177400, IGDOAT 


. EXPECTED PATTERN 


BIT 


#373. OOR 


. SELECT ONLY USED 


BEQ 


3» 


. IF ALL ZEROES. BRANCH 


MOV 


ODR.IBDOAT 


. STORE RECIEVED DATA 


ERROR 


• 16 


. ERROR IN UNIBUS LINES 


ADD 


«BIT01.0CSR 


. GET NEXT SET OF UNIBUS LINES 


SOB 


RS.ll 


. DO FOR ALL COMBINATIONS 


BIC 


«6IT8.DCSR 





B4 
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TEST • INDIRECT ACCESSING OF UNIBUS HAP REGISTERS 



SEQ 0040 



14S2 

14S3 

1404 

1485 

1466 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 



.SBTTL TEST - INDIRECT ACCESSING OF UNIBUS HAP REGISTERS 

i* THIS TEST WILL CHECK THAT EACH OF THE UNIBUS MAP REGISTER PAIRS CAN BE 

i* ACCESSED INDIRECTLY AND THAT RELOCATION WORKS PROPERLY 

i* DATA OUT CYCLES WILL BE PERFORMED. EACH REGISTER EXCEPT THE ONE 

UNDER TEST WILL POINT TO NXM 17760000. THE REGISTER PAIR UNDER TEST 
I* WILL POINT TO 0. AND DIAGNOSTIC DATA OUT CYCLES WILL BE PERFORMED 
I* TO PHYSICAL LOCATION 0. IN UFD MODE THIS TEST WILL RUN ONLY IF 
i* KMCR<5>-0. I.E. 22 BIT MODE. 



BGNTST 



IF UFD MODE AND KMCR<5> EQ «1 THEN 

EXIT TEST (RELOCATIC.J DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 
ENDIF 

MAKE SURE THAT DIGNOSTIC MODE IS ON DCSR<8>-1 
SELECT DIAGNOSTIC NPR THRU DDR BY 0CSR<2-l>-<0,0> 
DO FOR 32. MAPPING REGISTERS 
. LET LO REGISTER - «160000 
. LET HI REGISTER • #77 

ENDOO (ALL REGISTERS POINT TO NXM 17760000) 

POINT TIMEOUT.ROUTINE TO VECTOR 4 

CALL MAP.PROGRAM.AREA 

LET Mr'RO<0> - 1 TO ENABLE MMU 

LET MMR3<5> - 1 TO ENABLE RELOCATION 

POINT RO TO ADDRESS OF MAP REGISTER 0 

LET KIPAR6 - #0 TO ACCESS REGISTER 0 

LET (RO) - #0 

LET {R0)*2 - #0 TO USE ONLY 16 BITS 
LET Rl - «140000 TC ACCESS THRU KIPAR6 
IF NOT UFD 1»EH 
. SAVE KMCR 

CLEAR KMCR<4- 
. LET R4 • #31. 
ELSE 

. LET R4 ■ 31. 

ENDIF 

00 FOR R3 FROM #0 TO R4 FOR ALL REGISTERS 
. CLEAR S#0 (THIS LOCATION IS ACTUALLY USED) 
. LET PATTERN - RO (ADDRESS OF LOW REGISTER) 
. CALL DIAGNOSTIC.DATA.OUT <(R1).PATTERN> 
. IF TIMEOUT THEN 

. . ERROR IN UNIQUE ADDRESSING OF REGISTERS 
. ENDIF 

. IF S#0 NE PATTERN THEN 
. . ERROR PERFORMING DATA OUT 
. ENDIF 

. LET (RO)* > #160000 

. LET (RO)* - #77 TO MAP JUST USED PAIR TO NXM 
. LET (RO) - #0 

. LET (R0)*2 - #0 TO MAP NEXT PAIR TO TEST .LOCATION 



-0> 

(DO FOR ALL REGISTERS) 

- (KMCR<4-1>) ONLY NOT DISABLED REGISTERS 



. LET KIPAR6 

ENDDO 

DISABLE MMU 



- KIPAR6 * #200 TO ACCESS NEXT PAIR 



ENDTST 



C4 
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TEST - INDIRECT ACCESSING OF IJNIBUS MAP REGISTERS 



SEQ 0041 



1539 
1540 
1541 





005066 


000004 




1542 








1543 


005070 


005737 


001720 


1544 


005074 


001576 




1545 


005076 


032737 


000040 


1546 


005104 


001406 




1547 


005106 


032737 


000040 


1548 


005114 


001402 




1549 


005116 


000137 


005452 


1550 


005122 


052737 


000400 


1551 


005130 


042737 


000006 


1552 








1553 








1554 








1555 


005136 


012701 


000040 


1556 


005142 


012702 


170200 


1557 


005146 


012722 


160000 


1558 


005152 


012722 


000077 


1559 


005156 


077105 




1560 








1561 








1562 








1563 


005160 


012737 


002266 


1564 


005166 


004737 


002276 


1565 


005172 


005237 


177572 


1566 


005176 


052737 


000040 


1567 


005204 


012700 


170200 


1568 


005210 


012737 


000000 


1569 


005216 


012710 


000000 


1570 


005222 


012760 


000000 


1571 


005230 


012701 


140000 


1572 








1573 








1574 








1575 


005234 


032737 


000040 


1576 


005242 


001010 




1577 


005244 


013737 


177734 


1578 


005252 


005037 


177734 


1579 005256 


012704 


000036 


1580 


005262 


000407 




1581 


005264 


113703 


177734 


1582 


005270 


042703 


177740 


1583 


005274 


012704 


000036 


1584 


005300 


160304 




1585 








1586 








1587 








1588 


005302 


005003 




1589 


005304 


005037 


000000 


1590 


005310 


005037 


001730 


1591 


005314 


010037 


001124 


1592 


005320 


004737 


002242 



I ■ 



000052 
177734 



177730 
177730 



:*TEST 13 INDIRECT ACCESSING OF UNIBUS MAP REGISTERS 

• • *************************************************************** 

TST13: 

s ANY PMI MEMORY? 
IF NONE. EXIT TEST 
; UFD MODE 7 
i BRANCH, IF NOT 
18 BIT MODE 7 
BRANCH, IF NOT 
EXIT TEST 

14: BIS «BIT08,DCSR ; SET DIAGNOSTIC MODE 

SELECT NPR THRU DDR 



21: 



SCOPE 




TST 


PMIS 


BEQ 


TST14 ; 


BIT 


MIT05.S«52 


BEQ 


11 


BIT 


#BIT05,KMCR 


BEQ 


1» 


JMP 


101 


BIS 


«BIT08,DCSR 


BIC 


«BIT02!BIT01.DCSR 


EACH OF 


MAPPING REGISTER 


MOV 


032. .Rl 


MOV 


«MAPL00,R2 


MOV 


«160000.(R2)* 


MOV 


077, (R2)* 


SOB 


Rl,24 



DO FOR 32. REGISTER PAIRS 

POINT TO ADDRESS OF THE FIRST REGISTER 

. 160000 -> LO REGISTER 

. 77 -> HI REGISTER 

. CONTINUE UNTILL ALL DONE 



INITIALISE TO DO RELOCATION IN 22 BIT MODE 



000004 

172516 
172354 
000002 

000052 
001162 



MOV 


«TIM0UT.9«4 


POINT TIMEOUT ROUTINE 


JSR 


PC.MAPPR 


REMAP PROGRAM AREA 


INC 


MMRO 


TURN ON MMU 


BIS 


«8IT05,MMR3 


ENABLE RELOCATION 


MOV 


»MAPLOO.RO 


POINT RO TO FIRST REGISTER 


MOV 


«0, KIPAR6 


LET KIPAR6 SELECT MAP PAIR 0 


MOV 


#0.(R0) 


MOVE 0 TO LOU ADDRESS 


MOV 


»0.2(R0) 


MOVE 0 TO HI ADDRESS 


MOV 


#140000, Rl 


TO ACCESS THRU KIPAR6 



STORE 0 OF REGISTERS TO TEST IN R4 



BIT 


«6IT05,9«52 


; UFD MODE ? 


BNE 


3» 


{ IF YES. BRANCH 


MOV 


KMCR.ITMPl 


. SAVE KMCR 


CLR 


KMCR 


i DO NOT DISABLE ANY REGISTERS 


MOV 


«30. .R4 


i DO FOR ALL REGISTERS 


BR 


4* 


: BRANCH AROUND 


MOVB 


KMCR.R3 


; STORE 0 OF DISABLED REGISTERS 


BIC 


0177740, R3 


: LEAVE JUST BITS <4-0> 


MOV 


030. ,R4 


! STORE MAX. 0 OF REGISTERS 


SUB 


R3,R4 


: GET 0 OF ACCESSABLE REGISTERS 



34: 



; DO DATA OUT FOR EACH REGISTER PAIR UNDER TEST 



44: 

54: 



CLR 
CLR 
CLR 
MOV 
JSR 



R3 
900 

TOUT 

R0,4GDDAT 
PCDDOUT 



START UITH REGISTER PAIR 0 

. CLEAR LOCATION UNDER TEST 

. CLEAR TIMEOUT FLAG 

. PATTERN IS ADDRESS OF LO REGISTER 

. DO DIAGN. DATA OUT 
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T13 INDIRECT ACCESSING OF UNIBUS HAP REGISTERS 



1593 005324 005737 001730 TST 

1594 005330 001411 BEQ 

1595 005332 013737 172354 001122 MOV 

1596 005340 012705 000007 MOV 

1597 005344 006237 001122 111: ASR 

1598 005350 077503 SOB 

1599 005352 104020 ERROR 

1600 005354 023737 000000 001124 61: CMP 

1601 005362 001404 BEQ 

1602 005364 013737 000000 001126 MOV 

1603 005372 104013 ERROR 

1604 005374 012720 160000 7$: MOV 

1605 005400 012720 000077 MOV 

1606 005404 012710 000000 MOV 

1607 005410 012760 000000 000002 MOV 

1608 005416 062737 000200 172354 ADD 

1609 005424 062703 000001 ADD 

1610 005430 020304 CMP 

1611 005432 003724 BLE 

1612 005434 032737 000040 000052 BIT 

1613 005442 001003 BNE 

1614 005444 013737 001162 177734 MOV 

1615 005452 005037 177572 101: CLR 

1616 005456 042737 000040 172516 BIC 

1617 005464 042737 000400 177730 BIC 



D4 
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SEO 0042 



TOUT 
61 

KIPAR6.«BDADR 
#7,R5 
IBDADR 
R5.11* 

♦ 20 

9«0.IGDDAT 
71 

8«0.IBDDAT 

♦ 13 

•160000. (RO)^ 

♦77.CR0)* 

«0.(R0) 

«0,2(R0) 

«200.KIPAR6 

♦1.R3 

R3.R4 

S« 

•6IT05.S«52 
10« 

♦TMPl.KMCR 
MMRO 

•6IT0S.MMR3 
•BIT8.DCSR 



. TIMEOUT FLAG SET? 

. IF NOT BRANCH 

. STORE • OF PAIR FOR ERRORS 

. PREPARE TO SHIFT TO GET TO LOUER BITS 

. . SHIFT ONCE 

. . SHIFT 7 TIMES 

. IN UNIQUE ADDRESSING OF REGISTERS 

. DATA OUT OK? 

. IF YES, BRANCH 

. STORE FOR ERROR REPORTS 

. PERFORMING DATA OUT 

. POINT JUST USED REGISTER 

. TO NXM 

. POINT NEXT REGISTER PAIR 

. TO LOCATION 0 

. ACCESS NEXT REGISTER PAIR 

. INCREMENT COUNT 

. ALL AVAILABLE PAIRS DONE? 

. BRANCH IF NOT 

CHECK TO SEE IF KMCR WAS SAVED 
NO, DON'T RESTORE KMCR 
RESTORE KMCR 

DISABLE nnu 

DISABLE MAPPING 
EXIT DIAGNOSTIC MODE 



E4 
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SEQ 0043 



1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1626 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1630 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 



.SBTTL TEST - DISABLING OF THE MAPPING REGISTERS 

:* THIS TEST MILL CHECK THAT NONE OF THE REGISTERS DISABLED BY KHCR<4-0> 

s* PERFORM RELOCATION. IN UFO MODE ONLY THE BITS ACTUALLY SET IN THE KMCR WILL 

:* BE CHECKED, OTHREUISE ALL OF THEM EXCEPT THE FIRST 4 ARE CHECKED. 

:* IN UFD MODE THIS TEST WILL RUN ONLY IF KnCR<5>-0. (IN 22 BIT MODE) 



I BGNTST 



IF UFD MODE AND KMCR<5> EQ #1 THEN 

EXIT TEST (RELOCATION DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 
ENDIF 

MAKE SURE THAT DIGNOSTIC MODE IS ON DCSR<8>«1 

SELECT DIAGNOSTIC NPR THRU DDR BY DCSR<2-l>-<0,0> 

CALL MAP PROGRAM AREA 

LET MMR3<5> - 01 TO ENABLE RELOCATION 

LET MMRO<0> ■ 01 TO ENABLE MMU 

LET Rl - 0140000 TO ACCESS THRU KIPAR6 

LET KIPAR6 - 07600 TO ACCESS MAP REG. 32. 

SET 4 TO IGNORE TIMEOUT 

LET PATTERN - 0125252 

LET SOO - 00 

LET MAPL37 - 00 

LET MAPH37 - 00 

CALL DIAGNOSTIC DATA_0UT<(R03 .PATTERN> 
IF 900 EQ PATTERN THEN 

ERROR REG. PAIR 37 PERFORMS RELOCATION 
ENDIF 



ENDTST 



1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 



005472 000004 



005474 

005500 
005502 
005510 
005512 
005520 



005522 
005530 
005536 
005542 
005546 



005554 
005562 



005737 
001473 
032737 
001404 
032737 
001063 



052737 
042737 
004737 
005237 
052737 



012737 
012701 



001720 
000040 
000040 



000400 
000006 
002276 
177572 
000040 



005636 
140000 



000052 
177734 



177730 
177730 



172516 



000004 



: I *************************************************************** 

:*TEST 14 DISABLING REGISTERS 

TST14: SCOPE 

TST PMIS : ANY PMI MEMORY? 

BEQ TST15 IF NONE. EXIT TEST 

BIT 0BIT05.8052 : UFD MODE 7 

BEQ 1« ; BRANCH. IF NOT 

BIT 0BIT05.KMCR ; 18 BIT MODE ? 

BNE TST15 :;EXIT TEST IF 18 BIT MODE 



INITIALISE MMU AND DIAGNOSTIC REGISTERS 

li: BIS 0BIT08.DCSR 

BIC 0BIT02!BIT01,DCSR 

JSR PC.MAPPR 

INC MMRO 

BIS 0BIT05.MMR3 



SET DIAGNOSTIC MODE 
SELECT NPR THRU DDR 
REMAP PROGRAM AREA 
TURN ON MMU 
ENABLE RELOCATION 



TRY TO DO RELOCATION THRU REGISTER PAIR 31. 



MOV 
MOV 



02 $.304 
0140000, Rl 



INITIALISE TIMEOUT ROUTINE 
ACCESS THRU KIPAR6 



F4 
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T14 DISABLING REGISTERS 



1673 


005566 


012737 


007600 


172354 




MOV 


«7600,KIPAR6 


1674 


005574 


012737 


125252 


001124 




MOV 


#125252. $G0DAT 


1675 


005602 


005037 


000000 






CLR 


9«0 


1676 


005606 


012737 


000000 


170374 




MOV 


#O.MAPL37 


1677 


005614 


012737 


000000 


170376 




MOV 


#O.MAPH37 


1678 


005622 


013737 


001124 


177732 




MOV 


$GDDAT.DDR 


1679 


005630 


005011 








CLR 


(Rl) 


1680 


005632 


104021 








ERROR 


♦21 


1681 


005634 


000402 








BR 


3* 


1682 


005636 


005726 






2$: 


TST 


(SP)» 


1683 


005640 


005726 








TST 


(SP)» 


1684 


005642 


005037 


177572 




3*: 


CLR 


MMRO 


1685 


005646 


042737 


000040 


172516 




BIC 


#B1T05.MMR3 


1686 


005654 


012737 


002266 


000004 




MOV 


»TIMGUT . S»4 


1687 


005662 


042737 


000400 


177730 




BIC 


MIT8.DCSR 



SEQ 0044 



ACCESS REG. PAIR 31. 

STORE PATTERN 

CLEAR LOCATION UNDER TEST 

LET MAP PAIR 31. 

POINT TO 0 

STORE PATTERN IN DDR 

EXTENAL READ TO PROVIDE ADDRESS 

RELOCATION PERFORMED THRU REG. 31. 

EXIT TEST 

RESTORE STACK 

DISABLE MMU 
DISABLE MAPPING 
RESTORE TIMEOUT 
EXIT DIAGNOSTIC MODE 



G4 
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TEST - NXM MEMORY TIMEOUT 



SEQ 0045 



1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 



,SBTTL TEST - NXM MEMORY TIMEOUT 

♦ THIS TEST UILL VERIFY THAT WHENEVER LOCATION 17760000 IS ACCESSED 

* DIAGNOSTIC NPR CYCLES RESULT IN A TIMEOUT SETTING BIT <15> IN DCSR. 



BGNTST 



MAKE SURE THAT OIGNOSTIC MODE IS ON 0CSR<8>-1 

SELECT DIAGNOSTIC NPR THRU DDR BY 0CSR<2-l>-<0,0> 

CALL MAP_PROGRAM_AREA 

LET MMR0<0> - 1 TO ENABLE MMU 

IF NOT UFD MODE OR KMCR<5> EQ #0 

LET TEST.LOCATION - 0140000 TO ACCESS THRU KIPAR6 
LET KIPAR6 - #0 TO ACCESS REGISTER PAIR 0 
LET LO REGISTER - «160000 TO SET REG. 0 TO NXM 
LET HI REGISTER - ##77 
LET MMR3<S> - 1 TO ENABLE RELOCATION 
ELSE 

IF KMCR<5> EQ #1 THEN(18 BIT MODE) 

LET TEST.LOCATION - #140000 TO ACCESS THRU KIPAR6 
. LET KIPAR6 - #177600 TO ACCESS NXM 
ENDIF 
ENOIF 

START OIAGNOSTIC.OATA.OUT TO 9#0 
IF DCSR<15> NE 0 THEN 
. ERROR NXM BIT SET 
ENOIF 

PUT ACTUAL EXTERNAL ADDRESS ON THE BUS 
IF DCSR<15> NE 1 THEN 

ERROR NXM MEMORY DOES NOT SET 0CSR<15> 
ENDIF 



ENDTST 



1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 



005670 000004 



; • *************************************************************** 

j*TEST 15 NXM MEMORY TIMEOUT 

TST15: SCOPE 



005672 
005676 
005700 
0057C6 
005712 



005737 
001476 
052737 
004737 
005237 



001720 

000400 177730 

002276 

177572 



TST 
BEQ 
BIS 
JSR 
INC 



PMIS 
TST16 

«BIT8.DCSR 

PC.MAPPR 

MMRO 



; ANY PMI MEMORY? 
IF NONE. EXIT TEST 

SELECT DIAGNOSTIC MODE 
REMAP PROGRAM AREA 
ENABLE MMU 



DECIDE WHETHER TO ACCESS WITH RELOCATION OR NOT 



1735 005716 


012701 


140000 




MOV 


#140000, Rl 


1736 


005722 


032737 


000040 


000052 


BIT 


#BIT05,S#52 


1737 


005730 


001410 






BEQ 


1» 


1738 


005732 


032737 


000040 


177734 


BIT 


«BIT05,KMCR 


1739 


005740 


001412 






BEQ 


2i 


1740 


005742 


012737 


177600 


172354 


MOV 


#177600. KIPAR6 


1741 


005750 


000422 






BR 


3$ 


1742 


005752 


013737 


177734 


001162 1$: 


MOV 


KMCR.*TMP1 



ACCESS THRU KIPAR6 

UFD MODE? 

IF NOT. BRANCH 

18 BIT MODE? 
IF NOT BRANCH 
KIPAR6 HAS NXM 
GO DO IT 
SAVE KMCR 
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1743 


OO5760 


042737 




177734 




BIG 


#BIT05.KMCR 


1744 


005766 


012737 


000000 


172354 




MOV 


«0.KIPAR6 


1745 


005774 


012737 


160000 


170200 




MOV 


0160000. MAPLOO 


1746 


006002 


012737 


000077 


170202 




MOV 


#77.MAPH00 


1747 


006010 


052737 


000040 


172516 




BIS 


0BIT05.MMR3 


1748 














1749 










; 00 


ACTUAL DATA OUT CYCLE 


1750 
















1751 


006016 


005037 


177732 






CLR 


DDR 


1752 


006022 


005011 








CLR 


(Rl) 


1753 


006024 


032737 


100000 


177730 




BIT 


#BIT15.DCSR 


1754 


006032 


001001 








BNE 


5i 


1755 


006034 


104022 








ERROR 


*22 


1756 


006036 


005037 


177572 




51: 


CLR 


MMRO 


1757 


006042 


042737 


000040 


172516 




BIC 


«BIT05.MMR3 


1758 


006050 


032737 


000040 


000052 




BIT 


«BIT05.S»52 


1759 


006056 


001006 








BNE 


TST16 


1760 


006060 


013737 


001162 


177734 




MOV 


♦TMPl.KMCR 


1761 


006066 


042737 


000400 


177730 




BIC 


OBITS. DCSR 


1762 















SEQ 0046 



; IN NOT UFO. 00 IN 22 BITS 

: KIPAR6 ACCESS HAP REG. 0 

: MAP PAIR HAS NXM 

: ENABLE RELOCATION 



: PROMT DIAG. DATO 

i URITE TO NXM 

! NXM SET? 

: IF YES, BRANCH 

i NXM ACCESS DOES NOT SET 0CSR<15> 

: DISABLE MMU 

; AND MAPPING TOO 

; UFO MODE 
UFD. GO TO NEXT TEST 

; OTHERWISE. RESTORE KMCR 

: EXIT DIAGNOSTIC MODE 
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TEST - CARRY PROPOGATION TEST 

1764 

1765 

1766 

1767 

1760 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 



14 
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.SBTTL TEST - CARRY PROPOGATION TEST 



SEQ 0047 



;* 
;* 
t* 

I 



THIS TEST CHECKS THE CARRY PROPOGATION THRU THE ALU. MAPPING REGISTER PAIR 0 
IS LOADED WITH ALL I'S. LOCATION 1 IS ACCESSED. THE RESULT OF THE DATO 
CYCLE IS SUPPOSED TO BE LOADED IN LOCATION 0. 



BGNTST 



IF UFO MODE AND KMCR<5> EQ «1 THEN 

. EXIT TEST (RELOCATION DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 
ENDIF 

MAKE SURE THAT OIGNOSTIC MODE IS ON DCSR<8>-1 

SELECT DIAGNOSTIC NPR THRU DDR BY DCSR<2-l>-<0.0> 

POINT TIMEOUT ROUTINE TO VFCTOR 4 

CALL MAP.PROGRAM AREA 

LET MMRC<0> - 1 TO ENABLE MMU 

LET MMR3<S> « 1 TO ENABLE RELOCATION 

LET KIPAR6 - «0 TO ACCESS THRU MAP REG.O 

LET Rl « «140001 TO ACCESS THRU KIPA6 

LET LO MAP REG. - #177777 

LET HI MAP REG. - #77 

LET PATTERN - #125252 

CALL D1AGN0STIC_DATA_0UT<(R1),PATTERN> 
LET MMRO<0> - #0 TO DISABLE MMU 
IF SO NE #125252 THEN 

ERROR IN CARRY PROPOGATION 
ENDIF 



ENDTST 



1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 



006074 000004 



!*TEST 16 CARRY PROPOGATION TEST 

TST16: SCOPE 



006076 
006102 
006104 
006112 
006114 
006122 



006124 
006132 
006140 
006144 
006150 



006156 
006162 
006166 



005737 
001470 
032737 
001404 
032737 
001060 



052737 
042737 
004737 
005237 
052737 



005037 
012701 
012737 



001720 

000040 000052 
000040 177734 



000400 177730 
000006 177730 
002276 
177572 

000040 172516 



172354 
140002 

177777 170200 



TST 
BEQ 
BIT 
BEQ 
BIT 
BNE 



PMIS 
TST17 

#BIT0S,8#S2 
It 

#BIT05.KMCR 
TST17 



: ANY PMI MEMORY? 
IF NONE. EXIT TEST 

; UFD MODE ? 

: BRANCH. IF NOT 

; 18 BIT MODE ? 
GO TO NEXT TEST. IF YES 



INITIALISE MMU AND DIAGNOSTIC REGISTERS 



i 

II: 



BIS #BIT08.DCSR 

BIC #BIT02!BIT01,DCSR 

JSR PC.MAPPR 

INC MMRO 

BIS #BIT0S,MMR3 



SET DIAGNOSTIC MODE 
SELECT NPR THRU DDR 
REMAP PROGRAM AREA 
TURN ON MMU 
ENABLE RELOCATION 



ACCESS LOCATION 0 THRU RELOCATION REGISTERS 



CLR KIPAR6 
MOV #140002. Rl 
MOV #177777. MAPLOO 



CLEAR KIPAR6 
ACCESS THRU KIPAR6 
ALL ONE'S TO LO REG 
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1815 


006174 


012737 


000077 


170202 


MOV 


#77.MAPH00 


1819 


006202 


012737 


125252 


001124 


MOV 


«125252.IGDDAT 


1820 


006210 


005037 


000000 




CLR 


S«0 


1821 


006214 


004737 


002242 




JSR 


PC.DDOUT 


1822 


006220 


005037 


177572 




CLR 


MMRO 


1823 


006224 


042737 


000040 


172516 


BIC 


#BIT05.MMR3 


1824 


006232 


042737 


000400 


177730 


BIC 


*BIT8.DCSR 


1825 


006240 


022737 


125252 


000000 


CMP 


0125252. aoO 


1826 


006246 


001406 






BEQ 


TST17 


1827 


006250 


013737 


000000 


001126 


MOV 


S«0.«BOOAT 


1828 


006256 


005037 


001122 




CLR 


«BDAOR 


1029 


006262 


104023 






ERROR 


*23 



1830 



; ALL ONE'S TO HI REG 

: THE PATTERN TO BE STORED 

; CLEAR TEST LOCATION 

: DO DATA OUT 

: DISABLE MMU 

: AND MAPPING 

: EXIT DIAGNOSTIC MODE 

J DATA OUT OK? 
IF YES, GO TO NEXT TEST 

: STORE FOR ERROR REPORTS 

i ADDRESS 0 

s IN CARRY PROPOGATION 



I<4 
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TEST • EXTENSIVE CARRY PROPOGATION TEST 



SEQ 0049 



1832 

1833 

1834 

1835 

1836 

1837 

1838 

1639 

1640 

1641 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1&61 

1662 



.SBTTL TEST EXTENSIVE CARRY PROPOGATION TEST 

* THIS TEST PERFORMS EXTENSIVE CHECKING OF CARRY PROPOGATION. FIRST IK IS 

* CHECKED IN WORD INCREMENTS, AFTER THAT EACH IK UP TO 4K. DIAGNOSTIC DATI 

* CYCLES ARE PERFORMED AND A MAPPING REGISTER PAIR USED IS ALUAYS AT ALL I'S. 



BGNTST 



IF UFO MODE AND KMCR<5> EQ #1 THEN 

. EXIT TEST (RELOCATION DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 
ENDIF 

CALL MAP PROGRAM AREA 
ENABLE MAPPING 

INITIALISE ALL MAPPING REGISTERS TO POINT TO ALL I'S 
DO FOR 4K OF MEMORY 

IF MEMORY ACCESSED LESS THEN IK 
DO UORO INCREMENTS 

ELSE 

DO IK INCREMENTS 
ENDIF 

DO DATI INCREMENTS 

IF DDR NE TO LOCATION IN MEMORY THEN 

ALU ERROR 
ENDIF 
ENDDO 

ENDTST 



1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1674 
1875 
1676 
1877 
1878 
1879 
1880 
1661 
1882 
1663 
1664 
1665 



006264 000004 



:*TEST 17 EXTENSIVE CARRY PROPOGATION TEST 

TST17: SCOPE 



006266 
006272 
006274 
006302 
006304 
006312 



006314 
006322 
006330 
006334 
006342 



006346 
006352 
006SS6 
006362 
006366 



005737 
001521 
032737 
001404 
032737 
001111 



052737 
042737 
004737 
052737 
005237 



012701 
012703 
012721 
012721 
077305 



001720 
000040 
000040 



000400 
000006 
002276 
000060 
177572 



170200 
000036 
177776 
000077 



000052 
177734 



177730 
177730 

172516 



TST 
BEQ 
BIT 
BEQ 
BIT 
BNE 



PMIS 
TST20 

«6IT05.8«52 
1< 

MITOS.KMCR 
TST20 



; ANY PHI HEHORY? 
IF NONE, EXIT TEST 

UFD MODE 
IF NOT. BRANCH 
18 BIT MODE 
IF 18 BIT MODE. DON'T 00 THIS TEST 



INITIALISE MMU AND RELOCATION 



1«: BIS «6IT0e,DCSR 

BIC »BIT02!BIT01.0CSR 

JSR PC.MAPPR 

BIS «6IT0S!BIT04,MMR3 

INC MMRO 

POINT ALL MAPPING REGISTERS TO ALL I'S 



MOV ffMAPLOO.Rl 

MOV »36.R3 

2»: MOV #177776. CR1)» 

MOV #77. (RD* 

SOB R3,2« 



SET DIAGNOSTIC MODE 

SELECT NPR THRU DDR 

REMAP PROGRAM AREA 

ENABLE RELOCATION AND 22BITS 

ENABLE MMU 



START UITH 0 
DO FOR ALL REGISTERS 
LOU MAP REGISTER 
HIGH MAP REGISTER 
00 FOR ALL 



L4 
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T17 EXTENSIVE CAKRY PROPOGATION TEST 

I START WITH DATI ON A WORD BOUNDARY 

CLR KIPAR6 

MOV «140002,R1 

BR 41 

3»: TST (Rl)» 

41: JSR PC.DDIN 

MOV RI.IBOAOR 

SUB «2.»B0A0R 

CMP S«BOAOR.OOR 

BEQ 71 

MOV aiBDADR.IGDOAT 

MOV 0DR.4B00AT 

BIC «BIT15!BIT14!BIT13.«BDADR 

ERROR *23 



10S6 










laa? 










1S08 










1S09 


006370 


005037 


172354 




1090 


006374 


012701 


140002 




1091 


006400 


000401 






1092 


006402 


005721 






1093 


006404 


004737 


002254 




1094 


006410 


010137 


001122 




1095 


006414 


162737 


000002 


001122 


1096 


006422 


027737 


172474 


177732 


1097 


006430 


001412 






1090 


006432 


017737 


172464 


001124 


1099 


006440 


013737 


177732 


001126 


1900 


006446 


042737 


160000 


001122 


1901 


006454 


104023 






1902 










1903 










1904 










1905 


006456 


005737 


172354 




1906 


006462 


001011 






1907 


006464 


022701 


144000 




1900 


006470 


103744 






1909 


006472 


012701 


140002 




1910 


006476 


012737 


MAMA M A 

000040 


172354 


1911 


006504 


000737 




172354 


1912 


006506 


062737 


000040 


1913 


006514 


022737 


000200 


172354 


1914 


006522 


003330 






1915 


006524 


005037 


177572 


177730 


1916 


006530 


042737 


000400 


1917 











DECIDE UHICH CYCLE SHOULD OCCUR NEXT 



7*! 



lor 



TST 

BNE 

CMP 

BLO 

MOV 

MOV 

BR 

ADD 

CMP 

BGT 

CLR 

BIC 



KIPAR6 
101 

«144000.R1 
31 

«140002.R1 
«40.KIPAR6 
4« 

«40.KIPAR6 

«200,KIPAR6 

41 

MMRO 

«6IT6.0CSR 



SEQ 0050 



i ACCESS REGISTER PAIR 0 

: START UITH 0 THRU KIPAR6 

I . 00 IN UORO INCREMENTS 

s . 00 OATI 

! . STORE JUST ACCESSED ADDRESS 

: . GET RIO OF OVERFLOU 

i . PROPER DATA? 

: . IF EQUAL. BRANCH 

; . STORE RECEIVED DATA 

s . STORE EXPECTED DATA 

s . STRIP OF PAR BITS 

i . ERROR IN RELOCATION 



. FIRST TIME IK BOUNDARY? 

. IF NOT, BRANCH 

. LESS THAN IK DONE? 

. DO IN UORD INCREMENTS 

. NOU DO INCREMENTING THRU PAR 

. FIRST IK 

. GO DO COMPARE 

. ACCESS NEXT IK 

. OVER 4K BOUNDARY? 

. IF NOT, GO 00 OATI 

DISABLE MMU 

EXIT DIAGNOSTIC MODE 



KTJll-B DIAGNOSTIC 

TEST - ALU TEST 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1M6 

1947 

1948 

1949 



MACRO Y05.02 Friday 29-nar-85 12:53 



M4 

Page 26 



SEQ 0051 



.SBTTL TEST ALU TEST 

;* THIS TEST PERFORMS EXTENSIVE CHECKING OF ALU BY USING BINARY COUNT PATTERN 
!* FOR EACH OF THE 5 ADDERS AT THE SAME TIME. HIGHEST LOCATIONS CHECKED 
CORRESPOND TO MAXIMUM AMOUNT OF MEMORY AVAILABLE. 



i BGNTST 



IF UFO MODE AND KMCR<5> EQ #1 THEN 

. EXIT TEST (RELOCATION DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 
ENDIF 

CALL MAP PROGRAM AREA 

ENABLE MAPPING AND RELOCATION 

SIZE MEMORY AND MAKE UP MASK FOR NXM 

DO FOR BINARY COUNT PATTERNS THRU ALL FOR ADDERS 

MASK OUT NXM 

IF LESS THAN 32K THEN 
. . 00 OATI 
. ELSE 
. . 00 OATO 
. ENDIF 

. IF RESULT OF THE CYCLE IS NOT PROPER THEN 
. . ERROR IN ALU 
. ENDIF 
ENDDO 



ENOTST 



1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 



006536 000004 



;»TEST 20 

SCOPE 



ALU TEST 



TST20 



006540 
006544 
006546 
006554 



006556 
006564 
006572 
006576 
006604 
006&10 
006614 
006620 
006624 
006626 



006632 
006636 



005737 
001574 
032737 
001170 



052737 
042737 
004737 
052737 
005237 
013702 
010237 
012703 
040203 
072227 



012701 
005037 



001720 

000040 177734 



000400 177730 
000006 177730 
002276 

000060 172516 

177572 

001720 

001160 

004200 

177766 



140000 
172354 



TST 
BEQ 
BIT 
BNE 



PMIS 
TST21 

WITOS.KMCR 
TST21 



t ANY 22-BIT PMI nEHQRY? 

IF NONE. EXIT TEST 

; 18 BIT MODE 
:t IF 16 BIT MODE. DON'T DO THIS TEST 



INITIALISE MMU AND RELOCATION 



li: BIS WITOS.DCSR 

BIC #BIT02!BIT01.DCSR 

JSR PC.MAPPR 

BIS «6IT05!BIT04.MMR3 

INC MMRO 

MOV PMIS,R2 

MOV R2.»TMP0 

MOV *4200.R3 

BIC R2.R3 

ASH »-10..R2 



SET DIAGNOSTIC MQOE 

SELECT NPR THRU DOR 

REMAP PROGRAN AREA 

ENABLE RELOCATION AND 22BITS 

ENABLE MMU 

STORE SIZE OF PMI MEMORY 
CREATE A PATTERN 
CONSTANT FOR PAR 
MASK OUT NXM 
FOR MAPHOO 



00 FOR ALL COMBINATIONS POSSIBLE. 4 BITS AT A TIME 



MOV 
CLR 



»140000.R1 
KIPAR6 



ACCESS THRU KIPAR6 
ACCESS REGISTER PAIR 0 



N4 
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SCO 0052 

T20 ALU TEST 



1973 006642 


005037 


170200 






CLR 


MAPLOO 


• 


Al A A K4AA A^AVAV«aA^<K 

CLEAR MAP REGISTERS 


1974 006646 


005037 


170202 






CLR 


S A ■ ■ A A 

MAPHOO 


\ 




1975 006652 


AASA44 

005037 


001162 






CLR 


A fan ■ 

♦TMPl 


\ 


Al PAA tf*V#%a4AA^ ^*kA 0% A A 

CLEAR STORAGE FOR PAR 


1976 006656 


005037 


001122 






CLR 


A A A AAA 

IBDADR 


\ 


f YB^T AAAAPC*C* 1 ■f'PA 

FIRST ADDRESS USED 


1977 006662 


005037 


001124 






A* A 

CkR 


IGODAT 


i 


PAA AAW^AU 

CLEAR PATTERN 


1970 006666 


AAA ^ 

004737 


002254 




A A 

21: 


JSR 


PC . DDIN 


2 


AA AaYT 

. DO DAT I 


1979 006672 


A 4 

01373 t 


001162 


172354 




MOV 


♦TMP1,KIPAR6 


i 


AAAPA AAA 

. GET ADDED PAR 


1900 006700 


023777 


• *V^*VA 

177732 


172214 




CnP 


AAA AAAAJkAA 

DDR , 8»BDADR 


I 


AATT Ai^ 4 

. DAT I OK 7 


1901 006706 


AA 4 A 

001435 








OPA 


4 A 4 
10» 


s 


TC CA OOAAlAU 

Ir 50, BRANCH 


1902 006710 


013737 


177792 


AA 4 4 

001126 




nOV 


AAA ABAAikY 

DDR, IBDDAT 


s 


C T AAC OPATPiiPA A A V A 

. 5T0KC RcCIEVcD DATA 


4 AAV AA^ ^ a ^ 

1909 006716 


A 4 

017737 


172200 


AA4 4 tJI 

001124 




MOV 


U O A A AD 4 A A A T 

91 BDADR » IGDDAT 


• 


C T AAP P%#BP^TCn A AT A 

5T0HC cXPcCTcD DATA 


4 AA^ AArf ^ A ^ 

1904 006724 


Ad 1^ 

042797 


6 A AAAA 

160000 


AA4 4 tt 

001122 




BIC 


AA YT •SiaW4A4ClTT4V A AA A AA 

46IT15!dIT14!dIT13, IdDADk 




CTDTO AC OAO OTTC 

5TRlr Or rAR BIT 5 


4 AAB A A^ A 

190S 006792 


104023 








ERROH 


tv 

♦ 23 


* 




1906 006794 


003097 


AA4 4 9A 

001124 






CLR 




1 




1907 006740 


000420 








BR 


lOi 


I 




4 AAA AA^ ^ ^ ^ 

1909 006742 


004797 


AA 9 9 A 9 

002242 




5t: 


JSR 


Br* nnAi it 


* 


AA AATA 


a A A 4h AA^ 4 A ^ 

1909 006746 


013737 


001162 


172354 




MOV 


fTMPl,KIPAR6 




A AAP A AAA 

. GET ADDED PAR 


« AAA AAA^ff^ 

1990 006754 


023 »» 7 


AA1 4 9A 

001124 


4 79 4 A A 

172140 




CMP 


Ar"nAAT AADAAAB 


s 


. OM 1 1 OK 7 


1991 006762 


AA1 ^A^ 

001407 








BEQ 


4 AA 
10* 


! 




4 AA^ 

1992 006764 


Al 

01 7737 


4 794 V9 

172132 


AA 4 4 9A 
001126 




MOV 


AAQAAnO AOnnAT 
BfDUMUK , fDUUH 1 


» 


CTADC CVDCCTCn AATA 


1 AAV AA^ 

1993 006772 


AA 97 

042737 


4 AAAAA 

160000 


A A 4 4 99 
001122 




BIC 


AOTT 4 C IDTT 4 A tDTT 4 V AQf\AAD 

Vol 1 15:Di 1 14 !d1 1 13 I VbUHUK 


s 


CTDTD AC DAD QTTC 


4 AAA AA^AAA 

1994 007000 


4 AAA9V 

104023 








ERROR 


* 9* 

♦ 29 


f 




4 AAC 

1995 


















\ AAA 

1996 








1 DECIDE WHAT 


AttC99 NcXI 






1 AA^ 

1997 


















1990 007002 


AAKAV7 

003037 


172354 




ioi: 


CLR 


VTDADA 
RlKMnO 


I 


CAD DAD 


1 AAA t\£\^t\t\^. 

1999 007006 


062 '01 


AA 4 AA 9 

001042 






ADD 


W1U*2 »Ki 


• 


CTADT Tur^OCMCUTTUr 


2000 007012 


062737 


4 AA3 

021042 


1 r020v 




ADD 


A91A49 MADI AA 




CUCDV ATU STT 
tVCKT •♦in Oil 


A A 4 AA ^ A ^ A 

2001 007020 


005597 


1 70202 






ADC 






AAU' T CADPCT f^ADDV 


2002 007024 


0Oc797 


UvUUUc 


1 r JcUc 




ADD 


A9 M4PUAA 


t 


CnO AI 1 DCI^TCTCDC 

run HLL nculsicNs 


AAA* 

2009 007092 


Af A« V7 

010197 


AAI 1 99 






MOV 


nX f VDI/nUffl 


% 




2004 007096 


0e973f 


1 7n9AA 


AAI 1 99 




ADD 


MAPI AO iROAnO 


\ 


AOn IMTRllC MAO OFF 


■^AAC AA^A^A 

2003 007044 


032 79 7 


1 AAAAA 


AA 1 1 93 




BIS 


414AAAA iROAriQ 


\ 


MAIfP CinP I^TDAOA CFl CrTCA 


lAA^ AA^AS'% 

2006 007052 


042737 


A9AAAA 

020000 


AA 1 1 99 




BIC 


AOAAAA IRHAna 
VCUUUV > VDl/nUn 


• 




^AA^ AA^A^A 

2007 007060 


022 rOl 


15V42W 






CMP 




f 


nucDCi ali cdam aaatttau? 

UVCKrLUW rnUn nUI/llXUNf 


2000 007064 


AA 4 AAV 
001003 








BNE 




t 


. IF NO. BRANCH 




VvC ' ^ r 


000200 


001162 




ADD 


#200 ITMPl 


1 


. ADD OVERFLOU FOR PAR 


2010 007074 


060337 


001162 




15>: 


ADD 


R3.ITMP1 


1 


. ADD INCR. TO PAR 


2011 007100 


022737 


002000 


001162 




CMP 


«2000,ITMP1 


1 


. LESS THAN 32K7 


2012 007106 


003267 








BGT 


21 


• 


. IF YES. DO DATI 


2013 007110 


005237 


001124 






INC 


IGDDAT 


\ 


. INCREMENT PATTERN 


2014 007114 


023737 


001160 


001162 




CMP 


♦TMPO.ITMPl 


i 


. OVER AVAILABLE MEMORY? 


2015 007122 


003307 








BGT 


5« 


• 


. IF NOT, DO ANOTHER DATO 


2016 007124 


005037 


177572 




251: 


CLR 


MMRO 


: DISABLE MMU 
DIAGNOSTIC MODE 


2017 007130 


042737 


000400 


177730 




BIC 


•BIT0.DCSR : EXIT 
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TEST • MAIN NEHORY DISABLE 



B5 

Pag« 27 



SEQ 0053 



2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 



.SBTTL TEST - MAIN MEMORY DISABLE 

I* THIS TEST WILL CHECK THAT A MAIN MEMORY RESPONSE IS DISABLED WHENEVER 

J* THE APPROPRIATE BITS IN THE KMCR REGISTER ARE SET. IN UFO MODE ONLY BITS SET 

I* IN KMCR WILL BE TESTED. IN ALL OTHER ENVIRONMENTS ALL BITS WILL BE TESTED. 



I BGNfST 



CALL MAP PROGRAM.AREA 

LET MMRO<0> - 1 TO ENABLE MMU 

LET Rl - KMCR.LOU.BYTE 

CLEAR BITS <5,6.7> IN Rl 

IF KMCR<5> EQ #1 THEN (18 BIT MODE) 

. LET KIPAR6 - #7400 

ELSE (22 BIT MODE) 

LET KIPAR6 - #177400 
ENDIF 

LET TEST.LOCATION - #140000 TO ACCESS THRU KIPAR6 
DO FOR RO FROM #1 TO Rl ALL PAGES SPECIFIED IN KMCR 

. LET R2 - 8TEST_L0CATI0N 

. IF NO TIMEOUT THEN 

. . ERROR KMCR<4-5> DOESNOT DISABLE MAIN MEMORY 
. ENOIF 

LET KIPAR6 - KIPAR6 - #200 
ENDDO 

IF NOT UFD MODE THEN 

SAVE KMCR 
. CHECK KMCR<5-0> TO BE READ-WRITE 
. LET KMCR<5-0> • #0 (ALL NON-UNIBUS MEMORY) 
. LET KIPAR6 - •171600 
. IF 8«140000 DOES NOT TIMEOUT THEN 

. . LET KnCR<4-0> > <1000> TO DISABLE HIGHER THAN 28K 

. . IF 8#140000 DOESNOT TIMEOUT THEN 

. . . ERROR SETTING KHCR<5-0> DOESNOT DISABLE MEMORY 

. . ENOIF 

. ENDIF 

. RESTORE KMCR 

ENOIF 



ENOTST 



*TEST 21 MAIN MEMORY DISABLE 





007136 


000004 


TST21: 


SCOPE 








2063 


007140 


005737 


001720 


TST 


PMIS 


> 


ANY PMI MEMORY? 


2064 


007144 


001002 




BNE 


20 « 


i 


IF YES. DO THE TEST 


2065 


007146 


000137 


007616 


JMP 


100$ 


i 


OTHERWISE EXIT TEST 


2066 


007152 


052737 


000400 177730 20 »: 


BIS 


#BIT08.DCSR 


s 


STANDALONE MODE 


2067 


007160 


004737 


002276 


JSR 


PC.MAPPR 


i 


REMAP PROGRAM AREA 


2068 


007164 


005237 


177572 


INC 


MMRO 


ff 


ENABLE MMU 


2069 


007170 


113701 


177734 


MOVB 


KMCR.Rl 


■ 


SAVE KMCR 


2070 


007174 


042701 


177740 


BIC 


#177740. Rl 


ff 


Rl HAS ff OF PAGES DISABLED 



2071 
2072 



GET THE HIGHEST NXM LOCATION 



C5 
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T21 MAIN MEMORY DISABLE 



SEQ 0054 



2073 








2074 007200 


032737 


000040 


177734 


2075 007206 


001404 






2076 007210 


012737 


007400 


172354 


2077 007216 


000403 






2078 007220 


012737 


177400 


172354 


2079 








2060 








2081 








2062 007226 


105701 






2083 007230 


001420 






2084 007232 


012737 


007250 


000004 


2085 007240 


005737 


140000 




2086 007244 


104025 






2067 007246 


000402 






2086 007250 


005726 






2089 007252 


005726 






2090 007254 


162737 


000200 


172354 


2091 007262 


077112 






2092 007264 


012737 


002266 


000004 


2093 








2094 








2095 








2096 007272 


032737 


000040 


000052 


2097 007300 


001146 






2098 007302 


013737 


177734 


001162 


2099 007310 


012701 


000067 




2100 007314 


110137 


177734 




2101 007320 


120137 


177734 




2102 007324 


001426 






2103 007326 


010137 


001124 




2104 007332 


052737 


000200 


001124 


2105 007340 


123737 


001124 


177734 


2106 007346 


001415 






2107 007350 


010137 


001124 




2108 007354 


013737 


177734 


001126 


2109 007362 


012737 


177734 


001122 


2110 007370 


013737 


001160 


177734 


2111 007376 


104011 






2112 007400 


000446 






2113 007402 


005301 






2114 007404 


002343 






2115 








2116 








2117 








2118 








2119 007406 


052737 


000020 


172516 


2120 007414 


013702 


001720 




2121 007420 


005037 


170200 




2122 007424 


012737 


000001 


170202 


2123 007432 


052737 


000040 


172516 


2124 007440 


005001 






2125 007442 


012737 


007474 


000004 


2126 007450 


012737 


002000 


172354 


2127 007456 


012737 


000067 


177734 


2128 








2129 









BIT 
BEQ 
MOV 
BR 

1<: MOV 
! GO THRU ALL 



21: 

3$: 

4$: 
5(: 



#BIT05.KMCR j 

1< t 

«7400.KIPAR6 i 

21 I 

#177400, KIPAR6 i 

PAGES OF MEMORY DISABLED 



18 BIT MODE? 
IF NOT. BRANCH 
NXM FOR 18 BITS 
GO 00 IT 
NXM FOR 22 BITS 



TSTB 


Rl 


i 


ANY UNIBUS MEMORY? 


BEQ 


61 


t 


IF NO. BRANCH 


MOV 


«4I.S»4 


i 


POINT TIMEOUT VECTOR TO PROGRAM 


TST 


8«140000 


t 


. ACCESS THRU KIPAR6 


ERROR 


♦ 25 


> 


. KMCR<4-0> DOES NOT DISABLE MAIN 


BR 


5* 


1 




TST 


(SP)^ 


• 


! ADJUST STACK 


TST 


(SP)^ 


t 




SUB 


«200,KIPAR6 




! ACCESS NEXT LOUER PAGE 


SOB 


R1.3$ 




. DO FOR ALL PAGES IN KMCR 


MOV 


»TIM0UT.9»4 




RESTORE TIMEOUT VECTOR 



IN NON-UFD MODE. CHECK KMCR<5-0> 



6$) 



7*: 



8$: 



BIT 


«BIT05.8»52 : UFD MODE? 

TST22 IF YES. GO TO NEXT TEST 


BNE 


MOV 


KMCR.ITMPl 


* SAVE KMCR 


MOV 


#67. Rl 


'; HIGHEST VALUE (32K OF MEMORY) 


MOVB 


Rl.KMCR 


i . WRITE TO KMCR 


CMPB 


Rl.KMCR 


i . WRITTEN OK? 


BEQ 


8$ 


; . IF SO. BRANCH 


MOV 


R1.«G00AT 


. NO. THEN GET THE GOOD DATA 


BIS 


#BIT07.*GDDAT 


. IN CASE REBOOT BIT SET 


CMPB 


«GD0AT,KMCR 


. WAS THAT THE ONLY WRONG? 


BEQ 


8t 


. IF YES. BRANCH 


MOV 


Rl , IGDOAT 


. IF NOT. RESTORE PATTERN WRITTEN 


MOV 


KMCR.JBDDAT 


. GET THE BAD DATA 


MOV 


«KMCR.«BDADR 


. GET THE ADDRESS OF THE KMCR 


MOV 


»TMPO.KMCR 


. RESTORE RREGISTER 


ERROR 


♦ 11 


. ERROR IN KMCR<5-0> 


BR 


121 


, EXIT TEST ON ERROR 


DEC 


Rl 


. LAST LOCATION (0)? 


BGE 


7* 


. IF NOT. BRANCH 



IN NON-UFD MODE, GO THRU THE PAGE JUST ABOVE 32K 



BIS «BIT04,MMR3 

MOV PMIS.R2 

CLR MAPLOO 

MOV «1,MAPH00 

BIS «BIT05.MMR3 

CLR Rl 

MOV «10l.9#4 

MOV »2000.KIPAR6 

MOV «67.KMCR 

DO A CPU CYCLE TO DISABLED MEMORY 



ENABLE 22 -BIT 
STORE HIGHEST PAGE 
CLEAR MAP REG. 0 
POINTS TO 32K 
ENABLE MAPPING 
ADDRESS FOR DMA CYCLES 
TIMEOUT TO PROGRAM 
PAGE JUST ABOVE 32K 
DISABLE HIGHER THEN 32K 
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T21 MAIN NEnORY DISABLE 



2130 








■ 

9* : 








2131 007464 


005737 


140000 




TST 


S«140000 


. ACCESS DISABLED MEMORY 


2132 007470 


104025 








ERROR 


«25 ; . IN DISABLING MEMORY THRU KMCR<4 0> 


2133 007472 


000411 








BR 


121 1 


2134 007474 


AAI*^*%f 

00S726 






10>: 


TST 


(SP}« 1 . RESTORE STACK 


2139 007476 


OOS726 








TST 


(SP)» 




2196 








t 








2197 








s DO A 


DMA DATI 


CYCLE TO DISABLED MEMORY 




2130 








■ 








2199 0U7300 


004 f 9 f 


002254 




• 4 4 

11? : 


JSR 


PC.DOIN 


. DIAGNOSTIC DATI 


2140 0Ur504 


092797 


a AAAAA 

lOwOO 


177730 




BIT 


«BIT15.0CSR 


. NXM SET? 




AA 1 AA 1 








dNc 


121 


, . IF SET, BRANCH 


91^9 AA^CI A 

cl4e OWfSl* 


1 AA A9C 








COD no 


♦ 25 


. IN DMA MEMORY NOT DISABLED 


2149 








• 








9 1 

«144 








i CHcCK 


WntTHcK 


ALL PAGES IN MEMORY VERIFIED 










t 








91 ^£ AA^CI £ 

2146 007516 


029702 


172354 




12» : 


CnP 


KIPAR6.R2 


. IS IT IN MEMORY? 


91^7 AA^C99 

214 f 007522 


1 AVA9A 

109020 








Q II T f* 

BHIS 


141 


. IF NOT. BRANCH 


91 AA7C9A 

2140 OOr324 


0o2 r 9 r 


A9AAAA 
020000 


170200 




Ann 

ADD 


«20000.MAPL00 


. ACCESS NEXT 4K 


91 AA7CT9 

2149 OQfOoe 


1 AVAA9 
1U9002 








dCC 


13* 


. IF DIDN'T EXCEED 32K. BRANCH 


91CA AA7CVA 

213U \K;r394 


AAC9V7 

U0329 f 


1 7A9A9 
1 '0202 






INC 


MAPHOO 


. OTHERWISE. INCREMENT MAP REGISTER 


91 CI AA^C^A 

2151 007540 


AAC 

003997 


177794 




13? : 


nr^ 

DEC 


KMCR 


, . ENABLE NEXT 4K OF MEMORY 


91 C9 l^£\^K.AA 

2132 wV r344 


U92 ' 9 r 


AAAAA A 
000040 


X f f f OH 




OTT 


*BIT05,KMCR 


. ALL 128K DONE? 














14$ 


. IF SO. BRANCH 


2154 007554 


062737 


000200 


172354 




ADD 


#200,KIPAR6 


. ACCESS NEXT 4K 


2155 007562 


000740 








BR 


9$ 


. TRY TO DO IT 


2156 007564 


012737 


002266 


000004 


14$: 


MOV 


«TIM0UT.9»4 


RESTORE TIMEOUT VECTOR 


2157 007572 


013737 


001162 


177734 




MOV 


$TMP1.KMCR 


RESTORE KMCR 


2158 007600 


005037 


172516 






CLR 


MMR3 


DISABLE 22-BIT MODE 


2159 007604 


005037 


177572 






CLR 


MMRO 


DISABLE MMU 


2160 007610 


042737 


000400 


177730 




BIC 


ffBIT8,DCSR 


EXIT DIAGNOSTIC MODE 


2161 007616 








100* : 
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SEQ 0056 



2163 
2164 

216:* 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 



SBTTL TEST - CACHE PRESENCE 

* THIS TEST MILL FIND OUT WHETHER THE CACHE IS PRESENT 

BGNTST 

t LET KriCR<6>-#l 

IF KMCR<6> NE #1 THEN 

CACHE NOT PRESENT OR NOT SEEN 
ENDIF 

ENDTST 



: *************************************************************** 













J ♦TEST 


22 


CACHE PRESENCE 


















; • ******************************************************t******** 




007616 


000004 






TST22: 


SCOPE 










2179 






















2180 


007620 


005737 


001720 






TST 


PUIS 






, ANY PHI MEMORY? 


2181 


007624 


001440 








BEQ 


TST23 : ; 


IF NONE. 


EXIT TEST 


2182 


007626 


052737 


000100 


177734 




BIS 


*BIT06.KMCR 






■ SET CACHE ENABLE BIT 


2183 


007634 


032737 


000100 


177734 




BIT 


#BIT06.KMCR 






DID IT GET SET? 


2184 


007642 


001031 








BNE 


TST23 J ; 


IF 


CACHE 


PRESENT. EXIT TEST 


2185 


007644 


005737 


001206 






TST 


♦ PASS 






FIRST PASS? 


2186 


007650 


001014 








BNE 


1$ 






IF YES. SKIP PRINTOUT 


2187 


007652 


122737 


000001 


001220 




CMPB 


#APTENV.$ENV 






IN APT MODE? 


2188 


007660 


001410 








BEQ 


li 






IF SO. SKIP PRINTOUT 


2189 


007662 


032737 


000040 


000052 




BIT 


«BIT05,a#52 






UFD MODE ? 


2190 


007670 


001004 








BNE 


1« 






IF YES. BRANCH 


2191 


007672 


104401 


007706 






TYPE 


.NOCAH 






TYPE NO CACHE MESSAGE 


2192 


007676 


104401 


001175 






TYPE 


. ICRLF 








2193 


007702 


000137 


013224 




1«; 


JMP 


UBETST 






IF NO CACHE. SKIP ALL 


2194 






















2195 


007706 


040 


116 


117 


NOCAH: 


.ASCIZ 


/ NO CACHE SEEN/ 










007711 


040 


103 


101 
















007714 


103 


110 


105 
















007717 


040 


123 


105 
















007722 


105 


116 


000 















2196 



.EVEN 
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SEQ 0057 



2190 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 



007726 000004 



2224 
2225 
2226 
2227 
2226 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2236 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 



007730 
007734 
007736 
007744 
007752 
007754 
007762 
007770 
007776 
010004 
010006 
010014 
010022 
010030 
010032 
010040 
010046 
010054 
010056 
010064 
010072 
010100 
010102 
010110 
010112 



005737 
001471 
052737 
042737 
000403 
052737 
042737 
042737 
032737 
001412 
013737 
013737 
042737 
104026 
052737 
013737 
122737 
001412 
013737 
013737 
152737 
104026 
032737 
001721 
042737 



001720 

000400 
000040 

000040 
000100 
000400 
017000 

177734 
177734 
017000 

000400 
177734 
000177 

177734 
177734 
000177 

000040 

000400 



.SBTTL TEST 



CACHE DISABLED AND KMCR 



* THIS TEST WILL CHECK THAT WHENEVER THE DMA CACHE IS DISABLED 

* THE STATUS BITS IN KMCR REGISTER ARE INITIALISED TO POWER UP 

* CONDITIONS: THE VALID BITS ARE CLEARED, A IS THE NEXT AVAILABLE 

* SET. FOLLOWED BY B, C. AND D. 



BGNTST 



DO FOR HHR3<5>-0.1 WITH RELOCATION ENABLED AND DISABLED 
LET KMCR<6> * #0 TO DISABLE CACHE 
LET KMCR<8>-0 

IF KMCR<12!11!10!9> NE #0 THEN 
. ERROR IN VALID BITS WITH CACHE DISABLED 
ENDIF 

LET KMCR<8>-1 

IF KMCR<14!13!12!11!10!9!> NE #1 THEN 

ERROR IN LRU BITS SELECTION 
ENDIF 
EIJDDO 



ENDTST 



:*TEST 23 CACHE DISABLED AND KMCR 

TST23: SCOPE 



177730 
172516 

172516 
177734 
177734 
177734 

001126 
001124 
001124 

177734 
001160 
001161 

001126 
001124 
001124 

172516 

177730 



TST PMIS 

BEQ TST24 IF NONE. 

BIS «BIT8.0CSR 

BIC MIT05.MMR3 

BR 2« 

1*: BIS 0BIT05.MMR3 

2*: BIC <«IT06.KMCR 

BIC OBI T08. KMCR 

BIT *BIT12!BIT11!BIT10!BIT9.KMCR 

BEQ 31 

MOV KMCR,*BDDAT 

MOV KMCR, $ GOO AT 

BIC »BIT12!BIT11!BIT10!BIT9,$GD0AT 

ERROR *26 

31: BIS 0BIT08.KMCR 

MOV KMCR.JTMPO 

CMPB <H77.*TMP0*1 

BEQ 4« 

MOV KMCR . IBOOAT 

MOV KMCR.iGOOAT 

BISB ftl77.$G0DAT 

ERROR ^26 

4*: BIT #BIT05.MMR3 

BEQ 1$ 

BIC «BIT8.0CSR 



I ANY 
EXIT TEST 



PMI MEMORY? 



SELECT DIAGNOSTIC MODE 

FIRST 00 WITH RELOCATION DISABLED 

GO DO IT 

NOW 00 WITH RELOCATION ENABLED 
MAKE SURE THAT CACHE IS DISABLED 
READ VALID BITS FIRST 
ALL VALID BITS CLEAR? 
IF YES. BRANCH 
STORE KMCR 

STORE TO PRESERVE LOU BYTE 
HIGH BYTE CLEAR 

VALID BITS NOT CLEAR WITH KMCR<6>-0 

NOW READ AVAILABILITY BITS 

STORE KMCR 

ALL SET? 

IF YES, BRANCH 

STORE KMCR 

STORE TO PRESERVE LOU Bt TE 
HIGH BYTE SET 

AVAIL. BITS NOT SET UITH KMCR<6>»0 
DONE UITH RELOCATION ENABLED? 
IF NOT. BRANCH 
EXIT DIAGNOSTIC MODE 
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2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 



SEO 0058 



.SBTTL TEST - AVAILABILITY OF SETS 

THIS TEST UILL CHECK KMCR<15-8>. FIRST. EACH SET IN THE CACHE IS ALLOCATED, 
s* THEN EACH SET IS MADE MOST RECENTLY USED (MRU). AND THEN EACH SET IS 
;* INVALIDATED BY READING THE 8TH REGISTER OF THE SET. 

I BGNTST 

ENABLE CACHE 

POINT R2 TO VALTBL FOR VALID BITS (KMCR<8>"0) 
POINT R3 TO TOPTBL FOR AVAILABILITY (KMCR<8>-1) 
ENABLE RELOCATION 

* 

* ALLOCATE SETS IN CACHE MAKING EACH OF THEM VALID AND GETTING MISSES 
* 

00 FOR ALL 4 SETS ALLOCATING THEM IN CACHE 
LET KMCR<8>-0 

DO DMA READ ON OCTAL BOUNDARY USING DIAGNOSTIC DATA IN 
IFB (R2)* NE IN KMCR*1 THEN 
. ERROR IN READING VALID BITS ON MISS 
ENDIF 

LET KMCR<8>-1 
IFB KMCR»1 NE (R3)* THEN 

. ERROR READING AVAILABILITY BITS ON MISS 
ENDIF 
ENDDO 

* 

* READ A REGISTER FROM A VALID SET MAKING EACH OF THE SETS MOST RECENTLY USED 
* 

DO FOR ALL 4 SETS MAKING THEM MRU AND THEN MOST AVAILABLE 
LET KMCR<8>-0 

00 DMA READ FROM 3RD LOCATION USING DIAGNOSTIC DATA IN 
IFB KMCR*1 NE (R2)* THEN 
. ERROR IN READING VALID BITS ON HIT 
ENDIF 

LET KMCR<8>-1 
IFB KMCR«1 NE (R3)* THEN 
. ERROR READING AVAILABILITY BITS ON HIT 
ENDIF 



READ THE LAST REGISTER FROM A SET MAKING EACH SET INVALID AND MOST AVAILABLE 
LET KMCR<8>«0 

DO DMA READ FROM 8TH LOCATION USING DIAGNOSTIC DATA IN 
IFB KMCR*1 NE (R2)* THEN 

. ERROR IN READING VALID BITS INVALIDATING A SET 
ENDIF 

LET KMCR<8>-1 
IFB KMCR»1 NE (R3)* THEN 

ERROR READING AVAILABILITY BITS INVALIDATING A SET 
ENDIF 
ENOOO 

ENDTST 
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SEO 0059 



2310 





010120 


000004 




2311 








2312 


010122 


005737 


001720 


2313 


010126 


001002 




2314 


010130 


000137 


010546 


2315 


010134 


052737 


000400 


2316 


010142 


052737 


000100 


2317 


010150 


012702 


010550 


2318 


010154 


012703 


010564 


2319 


010160 


052737 


000040 


2320 


010166 


012737 


000200 


2321 


010174 


012737 


000000 


2322 


010202 


013737 


177734 


2323 


010210 


105037 


001125 


2324 








2325 








2326 








2327 


010214 


012701 


000000 


2320 


010220 


004737 


002254 


2329 


010224 


042737 


000400 


2330 


010232 


013737 


177734 


2331 


010240 


122237 


001127 


2332 


010244 


001404 




2333 


010246 


105742 




2334 


010250 


112237 


001125 


2335 


010254 


104026 




2336 


010256 


052737 


000400 


2337 


010264 


013737 


177734 


2338 


010272 


122337 


001127 


2339 


010276 


001404 




2340 


010300 


105743 




2341 


010302 


112337 


001125 


2342 


010306 


104026 




2343 


010310 


062701 


000020 


2344 


010314 


022701 


000100 


2345 


010320 


003337 




2346 








2347 








2348 








2349 


010322 


012701 


000004 


2350 


010326 


042737 


000400 


2351 


010334 


004737 


002254 


2352 


010340 


013737 


177734 


2353 


010346 


122237 


001127 


2354 


010352 


001404 




2355 


010354 


105742 




2356 


010356 


112237 


001125 


2357 


010362 


104026 




2358 


010364 


052737 


000400 


2359 


010372 


013737 


177734 


2360 


010400 


122337 


001127 


2361 


010404 


001404 




2362 


010406 


105743 




2363 


010410 


112337 


001125 



177730 
177734 



172516 
170200 
170202 
001124 



!*TEST 24 AVAILABILITY OF SETS 

TST24: SCOPE 



20«: 



TST 


PMIS 


ANY PMI MEMORY? 


BNE 


20 i 


IF SOME. 00 THE TEST 


JMP 


100 i 


OTHERWISE EXIT 


BIS 


»BIT8.0CSR 


SELECT DIAGNOSTIC MODE 


BIS 


«6IT06.KMCR 


ENABLE CACHE 


MOV 


»VALTBL.R2 ; POINT TO VALID BITS 


MOV 


#T0PTBL.R3 


POINT TO AVAILABILITY BITS 


BIS 


«BIT05,MMR3 


■ ENABLE RELOCATION 


MOV 


«200,MAPL00 


POINT MAPOO TO FIRST 8KB 


MOV 


«O.MAPHOO 


IN HIGH AND LOU MAP REGISTERS 


MOV 


KMCR.$GDDAT 


PRESERVE LOU BYTE 


CLRB 


«GDDAT«1 


CLEAR TO REPORT ERRORS, IF ANY 



ALLOCATE 4 SETS BY READING THEM THRU OIAGNOSTIC_DATA_IN 



It: 



2t. 



3«i 



MOV 


#0.R1 


; START READING MEMORY FROM 0 


JSR 


PC. ODIN 


. ALLOCATE IN CACHE NEXT 8 UORDS 


BIC 


#BIT08.KMCR 


, . READ VALID BITS 


MOV 


KMCR.IBDDAT 


; . STORE KMCR 


CMPB 


(R2)«.«BDDAT*1 


! . VALID BITS OK? 


6EQ 


2% 


. IF YES. BRANCH 


TSTB 


-(R2) 


. GET THE PATTERN JUST WRITTEN 


MOVB 


(R2)«.*GDDAT*1 


! . STORE HIGH BYTE 


ERRO^ 


*26 


! . ERROR IN VALID BITS 


BIS 


»eiT08,KMCR 


, , READ AVAILABILITY BIT 


MOV 


KMCR.IBDDAT 


. STORE KMCR 


CMPB 


(R3)*.«BDDAT*1 


. AVAILABILITY BITS OK? 


BEQ 


3* 


. IF YES. BRANCH 


TSTB 


-(R3) 


. GET THE PATTERN JUST WRITTEN 


MOVB 


(R3)«.$GDDAT«1 


. STORE HIGH BYTE 


ERROR 


*26 


. ERROR IN AVAILABILITY BITS 


ADD 


«20,R1 


. DO FOR NEXT OCTAL BOUNDARY 


CMP 


«100,R1 


. ALL 4 DONE? 


BGT 


11 


. IF NOT, BRANCH 



NOW READ 3RD AND THEN 8TH LOCATION FROM CACHE 



41: 



5*: 



MOV 


«4,R1 


! START WITH 3RD LOCATION A SET 


BIC 


«BIT08.KMCR 


i . READ VALID BITS 


JSR 


PC.DDIN 


; . READ FROM CACHE 


MOV 


KMCR,IBDDAT 


. STORE KMCR 


CMPB 


(R2)«.«BDDAT«1 


, . VALID BITS OK? 


BEQ 


5» 


! . IF YES. BRANCH 


TSTB 


-(R2) 


. GET THE PATTERN JUST WRITTEN 


MOVB 


(R2)*.«GDDAT«1 


. STORE HIGH BYTE 


ERROR 


*26 


. ERROR IN VALID BITS 


BIS 


0BIT08.KMCR 


. READ AVAILABILITY BIT 


MOV 


KMCR.IBDDAT 


, STORE KMCR 


CMPB 


(R3)*.IBDDAT*1 


. AVAILABILITY BITS OK? 


BEQ 




. IF YES. BRANCH 


TSTB 


(R3) 


. GET THE PATTERN JUST WRITTEN 


MOVB 


(R3)*.IGDDAT*1 


. STORE HIGH BYTE 
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177734 
001126 



SEQ 0060 



236* 


010414 


104026 




236b 


010416 


062701 


000012 


2366 


010422 


052737 


000400 


2367 


010430 


004737 


002254 


2368 


010434 


013737 


177734 


2369 


010442 


122337 


001127 


2370 


010446 


001404 




2371 


010450 


105743 




2372 


010452 


112337 


001125 


2373 


010456 


104026 




2374 


010460 


042737 


000400 


2375 


010466 


013737 


177734 


2376 


010474 


122237 


001127 


2377 


010500 


001404 




2378 


010502 


105742 




2379 


010504 


112237 


001125 


2380 


010510 


104026 




2381 


010512 


062701 


000006 


2382 


010516 


022701 


000100 


2583 


010522 


003301 




2384 


010524 


042737 


000040 


2385 


010532 


042737 


000100 


2386 


010540 


042737 


000400 


2387 


010546 








010546 


000414 




2388 








2389 








2390 








2391 








2392 


010550 


020 


030 




010553 


036 




2393 








2394 


010554 


236 


016 


2395 


010556 


216 


006 


2396 


010560 


206 


002 


2397 


010562 


202 


000 


2398 








2399 








2400 








2401 








2402 








2403 


010564 


017 




2404 


010565 


103 




2405 


010566 


151 




2406 


010567 


177 




2407 








2408 


010570 


017 


377 


2409 


010572 


163 


277 


2410 


010574 


075 


227 


2411 


010576 


027 


201 


2412 








2413 









177734 
001126 



172516 
177734 
177730 





ERROR 


♦ 26 








. ERROR IN AVAILABILITY BITS 


6i: 


ADO 


#12. Rl 








. READ THE 8TH WORD 




BIS 


#BIT08.KMCR 








. READ AVAILABILITY BIT 




JSR 


PC.DDIN 








. READ FROM CACHE 




MOV 


KMCR.^BDDAT 








. STORE KMCR 




CMPB 


(R3)^.»BDDAT^1 








. AVAILABILITY BITS OK? 




BEQ 


7* 








. IF YES. BRANCH 




TSTB 


-(R5) 








. GET THE PATTERN JUST WRITTEN 




MOVB 


(R3}*,$GDDAT*1 








. STORE HIGH BYTE 




ERROR 


♦ 26 








. ERROR IN AVAILABILITY BITS 


7»: 


BIG 


#BIT08.KMCR 








. READ VALID BITS 




MOV 


KMCR,»BDDAT 








. STORE KMCR 




CMPB 


(R2}*.$BDDAT*1 








. VALID BITS OK? 




BEQ 


8i 








. IF YES. BRANCH 




TSTB 


-(R2) 








. GET THE PATTERN JUST WRITTEN 




MOVB 


(R2)^.IGD0AT*1 








. STORE HIGH BYTE 




ERROR 


♦ 26 








. ERROR IN VALID BITS 


8i • 


ADO 


Aft Rl 








uu run ncA 1 uuihl duutiuhnt 




CMP 


OlOO.Rl 








. ALL 4 DONE? 




BGT 


4$ 








. IF NOT. BRANCH 




BIC 


#BIT05,MMR3 








nTQARl P DPI nrATTHKI 




BIC 


«BIT06,KMCR 








DISABLE CACHE 




BIC 


«BIT8.DCSR 








EXIT DIAGNOSTIC MODE 


100$: 
















BR 


TST25 s 


s EXIT 


TEST 




t* THIS 


TABLE 


HAS BITS KMCR<15-8> 


UHEN 


KMCR<8>-0 




>* KMCR<15>-0 FLAGGING CACHE HISS 










VALTBL: 


• BYTE 


20,30,34,36 






ORDER FOR VALID: A, AB. ABC. ABCD 










• 


NOW ALL VALID. HITS-MISS(URITE TO I/O) 




.BYTE 


236.16 






HIT -MISS, A: VALID - NOT VALID 




.BYTE 


216,6 




i 


HIT -MISS. B: VALID - NOT VALID 




.BYTE 


206,2 




f 


HIT-MISS, C: VALID - NOT VALID 




.BYTE 


202,0 




1 


HIT -MISS, 0: VALID NOT VALID 


;* THIS 


TABLE 


HAS BITS KMCR<15-8> 


WHEN 


KMCR<8>»1 




s* AT FIRST NG 


HITS ARE RECORDED. 


THE COMMENT FIELD SHOWS SETS 


:* STARTING UITH LEAST AVAILABLE 










TOPTBL: 


.BYTE 


17 




* 


ADCB - 


000111 




.BYTE 


103 






BADC - 


100001 




.BYTE 


151 




; 


CBAD - 


110100 




.BYTE 


177 






DCBA - 


mill 












NOW MISS -HITS 




.BYTE 


17.377 






->ADCB- 


>DCBA - 000111,111111 




.BYTE 


163.277 






->BOCA- 


>0CAB - 111001.011111 




.BYTE 


75,227 




; 


->CDAB- 


>DABC - 011110.001011 




.BYTE 


27.201 




» 


->OABC- 


>ABCD - 001011.000000 



.EVEN 
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2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2436 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2446 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 



.SBTTL TEST - DEALLOCATION OF SETS 

;* THIS TEST CHECKS THAT EACH SET CAN BE MADE MOST AVAILABLE AND 
I* DEALLOCATED ON THE NEXT READ ON THE OCTAL BOUNDARY. 

I DISABLE CACHE TO MAKE A MOST AVAILABLE 

ENABLE CACHE 

* 

* ALLOCATE SETS IN CACHE MAKING EACH OF THEM VALID AND GETTING MISSES 
* 

DO FOR ALL 4 SETS ALLOCATING THEM IN CACHE 

DO DMA READ ON OCTAL BOUNDARY USING DIAGNOSTIC DATA IN 
ENDDO - THIS LEAVES A AS THE MOST AVAILABLE SET 

* 

* TRY TO BRING A NEU LOCATIONS TO SET A 
* 

DO DMA READ ON OCTAL BOUNDARY FROM A FIFTH LOCATION TO SET A AGAIN 
LET KMCR<8> - 00 

IF KMCR<15!12!11!10!9!> NE <0,1.1.1,1> THEN 

ERROR DEALLOCATIONG LRU SET (A) 
ENDIF 

LET KMCR<8> - 01 

IF KMCR<15-9> NE <0.0.0.0. 1 . 1 . 1> THEN 

ERROR DEALLOCATING LRU SET (A) 
ENDIF 

* 

* TRY TO BRING A NEU LOCATIONS TO SET B 
* 

DO DMA READ ON OCTAL BOUNDARY FROM 1ST LOCATION TO SET B 
LET KMCR<8> « 00 

IF KMCR<15!12!11!10!9!> NE <0.1,1.1.1> THEN 

ERROR DEALLOCATIONG LRU SET (B) 
ENDIF 

LET KMCR<8> « 01 

IF KMCR<15-9> NE <0.1.0.0.0.0.1> THEN 
. ERROR DEALLOCATING LRU SET (B) 
ENDIF 

* 

* TRY TO BRING A NEU LOCATIONS TO SET C 
* 

DO DMA READ ON OCTAL BOUNDARY FROM 1ST LOCATION TO SET C 
LET KMCR<8> - 00 

IF KMCR<15!12!11!10!9!> NE <0.1,1.1,1> THEN 

ERROR DEALLOCATIONG LRU SET (C) 
ENDIF 

LET KMCR<8> - 01 

IF KMCR<15-9> NE <0.1.1.0.1,0.0> THEN 

ERROR DEALLOCATING LRU SET (C) 
ENDIF 

* TRY TO BRING A NEW LOCATIONS TO SET D 
* 

DO DMA READ ON OCTAL BOUNDARY FROM 1ST LOCATION TO SET D 
LET KMCR<8> • 00 

IF KMCR<15!12!11!10!9!> NE <0.1.1.1.1> THEN 

. ERROR DEALLOCATIONG LRU SET (D) 

ENDIF 
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SEQ 0062 



2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 



2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

25J7 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 



010600 000004 



010602 
010606 
010610 
010614 
010622 
010630 
010636 
010644 
010652 



010660 
010664 
010670 
010674 
010700 



010702 
010706 
010714 
010720 
010726 
010734 
010736 
010744 
010746 
010754 
010762 
010770 
010772 
011000 



011002 
011006 
011014 

011020 
011026 
011034 



005737 
001002 
000137 
052737 
052737 
052737 
012737 
012737 
013737 



012701 
004737 
062*^01 
022701 
003371 



012701 
042737 
004737 
013737 
122737 
001404 
112737 
104026 
052737 
013737 
122737 
001404 
112737 
104026 



012701 
042737 
004737 
013737 
122737 
001404 



001720 

011310 
000400 
000040 
000100 
000200 
000000 
177734 



000000 
002254 
000020 
000100 



000100 
000400 
002254 
177734 
000036 

000036 

000400 
177734 
000017 

000017 



000120 
000400 
002254 



LET KMCR<8> « #1 

IF KMCR<15-9> NE vO. 1 . 1 . 1 . 1 . 1 . 1> THEN 
. ERROR DEALLOCATING LRU SET (D) 
ENDIF 



ENDTST 



:«TEST 25 DEALLOCATION OF SETS 





TST25: 


SCOPE 












TST 


PMIS 


9 


ANY PMI MEMORY? 






BNE 


20$ 


I 


IF SOME. DO THE TEST 






JMP 


100$ 


I 


OTHERWISE . EXIT 


177730 


201: 


BIS 


0BIT8.DCSR 


t 


SELECT DIAGNOSTIC MODE 


172516 




BIS 


#BIT05.MMR3 




ENABLE RELOCATION 


177734 




BIS 


«BITC6,KMCR 


§ 


ENABLE CACHE 


170200 




MOV 


#200.MAPL00 


§ 


POINT MAPOO TO FIRST 8KB 


170202 




MOV 


«O.MAPHOO 


t 


IN HIGH AND LOU MAP REGISTERS 


001124 




MOV 


KMCR.IGDDAT 


i 


STORE LOU BYTE OF KMCR 



ALLOCATE ALL SETS MAKING A MOST AVAILABLE 







MOV 


<K),R1 


; START WITH 0 IN SET A 




1$: 


JSR 


PC.DOIN 


: . ALLOCATE A SET 






ADO 


«20,R1 


; . GET READY FOR NEXT SET 






CMP 


«100,R1 


. ALL 4 DONE? 






BGT 


1* 


: . IF NOT. BRANCH 




i TRY 


TO BRING 


A NEU SET TO A 








MOV 


#100, Rl 


i TRY TO DO DATI 


177734 




BIG 


«BI108.KMCR 


; READ VALID BITS 






JSR 


PC.DDIN 


! ALLOCATE IN CACHE 


001126 




MOV 


KMCR.«BDDAT 


; STORE KMCR 


001127 




CMPB 


«36.IBDDAT*1 


! ALL SETS VALID? 






BEQ 


2« 


; IF OK. BRANCH 


001125 




MOVB 


#36.»GDDAT«1 , STORE EXPECTED PATTERN 






ERROR 


*26 


( DEALLOCATING A 


177734 


21: 


BIS 


«6IT08.KMCR 


READ AVAILABILITY BITS 


001126 




MOV 


KMCR.«BDDAT 


STORE KMCR 


001127 




CMPB 


#17.#BDDAT*1 


MRU:A.D.C.B 






BEQ 


3» 


IF OK. BRANCH 


001125 




MOVB 


«17.«GDDAT*1 


STORE EXPECTED PATTERN 






ERROR 


*26 


DEALLOCATING A 




i TRY 


TO BRING 


A NEU SET TO 6 






3$: 


MOV 


»120.R1 


PREPARE FOR NEXT READ 


177734 




BIC 


«BIT08,KMCR 


READ VALID BITS 






JSR 


PC.DDIN 


READ INTO CACHE 


001126 




MOV 


KMCR.tBDDAT 


STORE KMCR 


001127 




CMPB 


«36.«BDDAT*1 


ALL VALID? 






BEQ 


4$ i 


IF YES. BRANCH 
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1 1P737 


000036 






MnuR 

nu wD 




011044 


1040P6 








ERROR 




011046 


052737 




177734 






VDX 1 VO • ivnun 


2S29 0110S4 


013737 


177734 


001126 




MOV 




2530 011062 


122737 


000103 


001127 




CMPB 


4103 iRDOAT* 1 


2531 011070 


001404 








BEQ 


SI 


2532 011072 


112737 


000103 


001 IPS 

WX AC J 




MOVB 


vxvi^ ( 1 ^x 


2533 011100 


104026 








ERROR 


* cw 


2534 














2535 








; TRY 


TO BRING 


A NPU SET TO C 


2536 














2537 011102 


012701 


000140 




SI : 


MOV 


0140 Rl 


2530 011106 


042737 


000400 


177734 




BIC 


MITOa KMCR 


2539 011114 


004737 


002254 






JSR 


PC ODIN 


2540 011120 


013737 


177734 


001126 




MOV 


KMCR IBDDAT 


2541 011126 


122737 


000036 


001127 




CMPB 


036 iBOOAT*l 


2542 011134 


001404 








BEQ 




2543 011136 


112737 


000036 


001125 




MOVB 


#36. IGDDAT*1 


2544 011144 


104026 








ERROR 


*26 


2545 011146 


052737 


000400 


177734 


61 : 


BIS 


MIT08.KMCR 


2546 011154 


013737 


177734 


001126 




MOV 


KMCR. IBDDAT 


2547 011162 


122737 


000151 


001127 




CMPB 


#151. IBDDAT *1 


2546 011170 


001404 








BEQ 


71 


2549 011172 


112737 


000151 


001125 




MOVB 


#151 . I6DDAT*1 


2550 011200 


104026 








ERROR 


*26 


2551 














2552 








; TRY 


TO BRING 


A NEW SET TO D 


2553 








1 






2554 011202 


012''01 


000160 




71: 


MOV 


#160. Rl 


2555 011206 


042737 


000400 


177734 




BIC 


#6IT08.KHCR 


2556 011214 


004737 


002254 






JSR 


PC.OOIN 


2557 011220 


013737 


177734 


001126 




MOV 


KMCR , IBODAT 


2558 011226 


122737 


000036 


001127 




CMPB 


#36,IB00AT«1 


2559 011234 


001404 








BEQ 


81 


2560 011236 


112737 


000036 


001125 




MOVB 


«36.IG00AT*1 


2561 011244 


104026 








ERROR 


*26 


2562 011246 


052737 


000400 


177734 


81: 


BIS 


»BIT08.KMCR 


2563 011254 


013737 


177734 


001126 




MOV 


KMCR.IBOOAT 


2564 011262 


042737 


000400 


177730 




BIC 


#BIT08.0CSR 


2565 011270 


122737 


000177 


001127 




CMPB 


«177,IB00AT*1 


2566 011276 


001404 








BEQ 


TST26 


2567 011300 


112737 


000177 


001125 




MOVB 


*177.I6DDAT*1 


2566 011306 


104026 








ERROR 


*26 


2569 011310 








100«: 







2570 



! STORE EXPECTED PATTERN 

i DEALLOCATING 8 

; READ AVAILABILITY BITS 

; STORE KMCR 

; MRU:B.A.D.C 

: IF OK, BRANCH 

! STORE EXPECTED PATTERN 

i DEALLOCATING B 



PREPARE FOR NEXT READ 

READ VALID BITS 

READ INTO CACHE 

STORE KMCR 

ALL VALID? 

IF YES, BRANCH 

STORE EXPECTED PATTERN 

DEALLOCATING C 

READ AVAILABILITY BITS 

STORE KMCR 

MRU:C.B,A,D 

IF OK, BRANCH 

STORE EXPECTED PATTERN 

DEALLOCATING C 



; PREPARE FOR NEXT READ 

i READ VALID BITS 

{ READ INTO CACHE 

; STORE KMCR 

; ALL VALID? 

i IF YES. BRANCH 

t STORE EXPECTED PATTERN 

; DEALLOCATING 0 

: READ AVAILABILITY BITS 

t STORE KMCR 

i EXIT DIAGNOSTIC MODE 

i nRU:D.C.B.A 
IF OK. EXIT TEST 

I STORE EXPECTED PATTERN 

t DEALLOCATING 0 
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SEQ 0064 



2572 

2573 

2574 

2575 

2576 

2577 

2570 

2579 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2500 

2509 

2590 

2591 

2592 

2593 

2594 

2595 



2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2600 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 



011310 000004 



011312 
011316 
011320 
011326 
011334 
011342 
011350 
011356 
011362 
011370 
011372 
011400 
011402 
011410 
011416 
011424 
011426 
011434 
011436 
011444 



005''37 
001455 
052737 
052737 
042737 
042737 
013737 
105037 
032737 
001404 
013737 
104026 
052737 
013737 
122737 
001404 
112737 
104026 
042737 
042737 



001720 

000100 
000400 
000040 
000400 
177734 
001125 
017000 



.SBTTL TEST - CACHE WITH RELOCATION DISABLED 



• THIS TEST CHECKS THAT CACHE IS NOT OPERATIONAL UHEN RELOCATION IS 

* DISABLED AND KMCR<15-9> ARE NOT INITIALIZED. 



BGNTST 



SAVE KHCR<15-9> FOR KnCR<0>-0.1 

LET MMR3<5>-00 TO DISABLE RELOCATION 

DO DMA READ USING DIAGNOSTIC DATA IN 

LET KMC«<8>-0 

IFB KMCR^l NE SAVED THEN 

ERROR RELOCATION DISABLED STILL AFFECTS THE CACHE 
ENDIF 

LET KMCR<8>-1 

IFB KnCR*l NE SAVED THEN 

. ERROR RELOCATION DISABLED STILL AFFECTS THE CACHE 
ENDIF 



ENDTST 



2 *************************************************************** 

*TEST 26 CACHE UITH RELOCATION DISABLED 



177734 
177730 
172516 
177734 
001124 

177734 



177734 001126 



000400 
177734 
000177 



177734 
001126 
001127 



000177 001125 



000100 
000400 



177734 
177730 



TST26: SCOPE 

TST 

BEQ 

BIS 

BIS 

BIG 

BIG 

MOV 

GLRB 

BIT 

BEQ 

MOV 

ERROR 

3«: BIS 
MOV 
CMPB 
BEQ 
MOVB 
ERROR 

4$: BIG 
BIG 



;i IF NONE. EXIT 



PMIS 
TST27 

«BIT06.KnGR 
MIT06.0CSR 
«BIT0S.HriR3 
•BITOS.KnCR 
KnCR.IGOOAT 
IGOOAT*! 

«6IT12!BITll!BIT10!BIT9.KnGR 
31 

KMGR.«BDDAT 
• 26 

•BITO0.KMCR 
KMCR,«BDDAT 
•177.»BDDAT.1 
4« 

♦177.»GDDAT.1 
*26 

0BIT06.KMGR 
MIT08.DCSR 



ANY PHI MEMORY? 
TEST 

{ MAKE SURE THAT CACHE IS ENABLED 

t SELECT DIAGNOSTIC MODE 

; DISABLE RELOCATION 

i READ VALID BITS FIRST 

; STORE LOU BYTE 

t CLEAR HIGH BYTE 

ALL VALID BITS CLEAR? 
IF YES, BRANCH 
STORE KMCR 

VALID BITS NOT CLEAR UITH KMCR<6>-0 
NOU READ AVAILABILITY BITS 
STORE KMCR 
ALL SET? 

IF YES. EXIT TEST 
EXPECTED PATTERN 

AVAIL. BITS NOT SET UITH KMCR<6>>0 
DISABLE CACHE 
EXIT DIAGNOSTIC MODE 
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SEQ 0065 



2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

263a 

2639 

2640 

2641 

2642 

2643 

2644 



.SBTTL TEST - WRITE CYCLES AND CACHE 



• THIS TEST CHECKS THAT DMA WRITE CYCLES DON'T AFFECT THE CACHE. EXCEPT 

• WRITE HITS WHICH INVALIDATE THE SET AND MAKE THIS SET THE MOST AVAILABLE. 



BCNTST 



1 ' 



SAVE KMCR<lS-9> FOR KMCR<8>-0.1 

DO DIAGNOSTIC.DATA.OUT WITH TAGS NOT CORRESPONDING TO ANY SETS 
DO FOR KMCR<8>-0.1 

. IF KMCR<15-9> NE SAVED VALUES THEN 

. . ERROR WRITE CYCLES AFFECT THE CACHE 

. ENOIF 

ENDDO 

DO DIAGNOSTIC.DATA.OUT THAT CAUSES A HIT 

IF NOT A HIT THEN 

. ERROR RECORDING HITS 

IF THE SET IS VALID OR NOT HOST AVAILABLE THEN 

. ERROR IN LEAST RECENTLY USED LOGIC 

ENDIF 



ENDTST 



\*1ES1 27 



WRITE CYCLES AND CACHE 





011452 


000004 






TST27: 


SCOPE 








2645 




















2646 


011454 


005737 


001720 






TST 


PHIS 


t 


ANY PMI MEMORY? 


2647 


011460 


001002 








BNE 


201 


1 


IF SOME. DO THE TEST 


2648 


011462 


000137 


012134 






JMP 


1001 


i 


OTHERWISE EXIT 


2649 


011466 


052737 


000400 


177730 


201: 


BIS 


•6IT08.DCSR 


t 


SELECT DIAGNOSTIC MODE 


2650 


011474 


052737 


000100 


177734 




BIS 


•6IT06.KMCR 


I 


CACHE STILL ENABLED 


2651 


011502 


052737 


000040 


172516 




BIS 


•6IT05.MHR3 


t 


ENABLE RELOCATION 


2652 


011510 


012737 


000200 


170200 




MOV 


«200,MAPLOO 


i 


POINT MAPOO TO FIRST 8KB 


2653 


011516 


012737 


000000 


170202 




MOV 


«0,MAPH00 


; 


IN HIGH AND LOW MAP REGISTERS 


2654 


011524 


042737 


000400 


177734 




BIC 


«6IT08.KMCR 


i 


SELECT VALID BITS 


2655 


011532 


013702 


177734 






MOV 


KMCR.R2 


1 


SAVE VALID BITS OF KMCR 


2656 


011536 


052737 


000400 


177734 




BIS 


fBITOS.KHCR 


f 


SELECT AVAILABILITY BITS 


2657 


011544 


01S70S 


177734 






nov 


KMCR f R3 


« 


SAVE AVAILABILITY BITS 



2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 



OllSSO 
011554 
Oil 562 
011566 
011574 
011600 
011602 
011606 
011614 
011616 
011624 
011630 



012701 
013737 
004737 
042737 
020237 
001406 
010237 
013737 
104026 
052737 
020337 
001406 



000200 

000400 001124 
002242 

000400 177734 
177734 

001124 

177734 001126 

000400 177734 
177734 



I ACCESS LOCATION NOT IN CACHE 

' NOV •200, Rl 

NOV 8*400. IGOOAT 

JSR PC.OOOUT 

BIC «6IT08.KnCR 

CMP R2.KMCR 

BEO 1« 

HOV R2,«G00AT 

MOV KMCR . »BOOAT 

ERROR *26 

II: BIS «6IT08.KnCR 

CMP P3.KMCR 

BEO 2t 



ACCESS ADDRESS 

THE PATTERN TO BE WRITTEN 

DO DIAGNOSTIC DATA OUT 

SELECT VALID BITS 

KMCR CHANGED? 

IF NOT. BRANCH 

EXPECTED PATTERN 

RECIEVED PATTERN 

WRITE MISSES AFFETS CACHE 

SELECT AVAILABILITY BITS 

KMCR CHA^jGED7 

IF OK. BRANCH 
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2673 011632 


010337 


001124 






MOV 


R3.«GDDAT 


2674 011636 


013737 


177734 


001126 




nov 


KMCR . IBODAT 


2675 011644 


104026 








ERROR 


*26 


2676 














2677 








I CHECK 


THAT URITE HIT INVALIDATES CA 


2670 














2679 011646 


042737 


000100 


177734 


21: 


QIC 


«6IT06,KMCR 


2690 011654 


052737 


000100 


177734 




BIS 


OBIT 06. KMCR 


2661 011662 


012701 


000000 






MOV 


M.Rl 


2682 011666 


004737 


002254 






JSR 


PC.OOIN 


2683 011672 


012701 


000020 






MOV 


#20, Rl 


2684 011676 


004737 


002254 






JSR 


PC.OOIN 


268S 011702 


005001 








CLR 


Rl 


2686 011704 


013737 


000200 


001124 




MOV 


8«2OO,IG00AT 


2687 011712 


004737 


002242 






JSR 


PC.DDOUT 


2688 011716 


032737 


100000 


177734 




BIT 


•BIT15.KMCR 


2689 011724 


001012 








BNE 


3« 


2690 011726 


013737 


177734 


001124 




MOV 


KMCR.«GDDAT 


2691 011734 


112737 


000363 


001124 




MOVB 


»363,«G0DAT 


2692 011742 


0n737 


177734 


001126 




MOV 


KMCR,«BOOAT 


2693 011750 


104026 








ERROR 


*26 


2694 011752 


042737 


000400 


177734 


31: 


BIC 


«BIT08.KMCR 


2695 011760 


032737 


010000 


177734 




BIT 


«BIT12.KMCR 


2696 011766 


001412 








BEQ 


41 


2697 011770 


013737 


177734 


001124 




MOV 


KMCR.tGDOAT 


2698 011776 


112737 


000010 


001125 




MOVB 


«6IT03,«G00AT*1 


2699 012004 


013737 


177734 


001126 




MOV 


KMCR.$B00AT 


2700 012012 


104026 








ERROR 


*26 


2701 012014 


013737 


177734 


001124 


4«: 


MOV 


KMCR , «G0DAT 


2702 012022 


112737 


000200 


001125 




MOVB 


»200,«GDDAT*1 


2703 012030 


013737 


000220 


000220 




MOV 


8»220.S«220 


2704 012036 


032737 


100000 


177734 




BIT 


«BIT15.KMCR 


2705 012044 


001004 








BNE 


54 


2706 012046 


013737 


177734 


001126 




MOV 


KMCR . IBDDAT 


2707 012054 


104026 








ERROR 


•26 


2708 012056 


032737 


004000 


177734 


5»: 


BIT 


«6IT11.KMCR 


2709 012064 


001412 








BEQ 


61 


2710 012066 


013737 


177734 


001124 




MOV 


KMCR.$G0DAT 


2711 012074 


142737 


000030 


001125 




BICB 


*6IT04!BIT03, $GDDAT*1 


2712 012102 


013737 


177734 


001126 




MOV 


KMCR,«BDDAT 


2713 012110 


104026 








ERROR 


♦26 


2714 012112 


042737 


000100 


177734 


61: 


BIC 


«6IT06.KMCR 


2715 012120 


042737 


000040 


172516 




BIC 


«6IT05,MMR3 


2716 012126 


042737 


000400 


177730 




BIC 


«BIT08.DCSR 


2717 012134 








1001 : 







SEQ 0066 



; EXPECTED PATTERN 
I RECIEVED PATTERN 
t URITE MISSES AFFETS CACHE 



I DISABLE CACHE TO GET TO KNOW STATE 

i ENABLE CACHE 

i ADDRESS 0 

s ALLOCATE CACHE SET A 

: ADDRESS 20 

: AND ALLOCATE SET B 

: ACCESS SET A 

i THE PATTERN TC BE URITTEh 

i INVALIDATE CACHE 

I HIT? 

; IF YES. BRANCH 

: PRESERVE LOU BYTE IF ERROR 

: HIT. B LEAST AVAILABLE 

; RECIEVED PATTERN 

I URITE HIT UAS NOT RECORDED 

: READ VALID BITS 

: A VALID? 

s IF INVALIDATED. BRANCH 

: PRESERVE LOU BYTE IF ERROR 

: MISS. B VALID 

: RECIEVED PATTERN 

; URITE HIT DOES NOT INVALIDATE 

s PRESERVE LOU BYTE IF ERROR 

; HIT RECIEVED 

; CPU URI^E TO SET B 

s HIT? 

; IF YES. BRANCH 

; STORE KMCR 

: HIT NOT RECORDED 

J B STILL VALID? 

; IF NOT. EXIT TEST 

: IN CASE HIT UENT AUAY 

: CLEAR ALL EXTRA 

; RECIEVED PATTERN 

: CPU URITE DOES NOT INVALIDATE 

; DISABLE CACHE 

: AND MAPPING 

i EXIT DIAGNOSTIC MODE 



K7J11-B DIAGNOSTIC MACRO Y05.02 

TEST • DHA READ UITH INDEX NOT ZERO 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

272S 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 
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SEO 0067 



2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 



012134 000004 



012136 
012142 



012144 

012152 
012160 
012166 
012174 
012202 
012206 



012212 
012220 
012226 
012234 
012240 
012244 
012250 
012256 
012264 
012266 
012274 
012276 
012304 
012310 
012312 
012316 
012324 



005737 
001502 



052737 
052737 
052737 
012737 
012737 
012701 
004737 



042737 
013737 
052737 
013703 
012701 
004737 
042737 
023737 
001404 
013737 
104026 
052737 
020337 
001406 
010337 
013737 
104026 



001720 



000400 
000040 
000100 
000200 
000000 
000000 
002254 



000400 
177734 
000400 
177734 
000102 
002254 
000400 
001124 

177734 

000400 
177734 

001124 
177734 



.SBTTL TEST - DMA READ UITH INDEX NOT ZERO 

♦ THIS TEST CHECKS THAT A DMA READ MISS DOES NOT AFFECT THE CACHE IF THE INDEX 

♦ FIELD IS NOT ZERO. 



B6NTST 



SAVE KMCR<15-9> FOR KMCR<8>-0.1 

DO OIAGNOSTIC.OATA IN FOR A LOCATION UITH NON-ZERO INDEX 
DO FOR KMCR<8>-0.1 

IF KMCR<15-9> NE SAVED THEN 
. . ERROR IN COMPARING INDEXES 

ENDIF 
ENDDO 



ENDTST 



• ;*****•••••**•**•*« ********************************************* 

:*TEST 30 DMA READ UITH INDEX NOT ZERO 

TST30: SCOPE 



TST 
BEQ 



PMIS 
TST31 



t ANY PMI MEMORY? 
IF NONE. EXIT TEST 



ENABLE CACHE AND ALLOCATE SET A 



177730 
172516 
177734 
170200 
170202 



177734 
001124 
177734 



177734 
177734 

001126 

177734 

001126 



BIS 
BIS 
BIS 
MOV 
MOV 
MOV 
JSR 



MIT08.DCSR 

#BIT05.MMR3 

#BIT06.KMCR 

#200.MAPL00 

M.MAPHOO 

#0,R1 

PC.DOIN 



SELECT DIAGNOSTIC MODE 

ENABLE RELOCATION 

ENABLE CACHE 

POINT MAPOO TO FIRST 8KB 

IN HIGH AND LOU MAP REGISTERS 

ALLOCATE 200-216 

IN CACHE 



TRY TO CHECK UHETHER NON-ZERO INDEX EFFECT CACHE 



li: 



BIC 

MOV 

BIS 

MOV 

MOV 

JSR 

BIC 

CMP 

BEQ 

MOV 

ERROR 

BIS 

CMP 

BEQ 

MOV 

MOV 

ERROR 



#BIT08.KMCR 

KMCR.IGDDAT 

«6IT08.KMCR 

KMCR,R3 

«102.R1 

PC.DDIN 

«BIT08.KMCR 

$GD0AT,KMCR 

1* 

KMCR.tBODAT 
*26 

«BIT08,KMCR 

R3.KMCR 

2» 

R3.*GDDAT 

KMCR.$BDDAT 

*26 



SELECT VALID BITS 

SAVE VALID BITS OF KMCR 

SELECT AVAILABILITY BITS 

SAVE AVAILABILITY BITS 

TRY CACHING 102 

DO DIAGNOSTIC DATA IN 

SELECT VALID BITS 

KMCR CHANGED? 

IF NOT. BRANCH 

RECIEVEO PATTERN 

NON-ZERO INDEX AFFECTS CACHE 

SELECT AVAILABILITY BITS 

KMCR CHANGED? 

IF NOT. EXIT TEST 

EXPECTED DATA 

RECIEVEED DATE 

NON-ZERO INDEX AFFECTS CACHE 



D6 
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T30 OriA READ UITH INDEX NOT ZERO 

21: 



2773 012326 042737 000100 177734 

2774 012334 042737 000040 172516 

2775 012342 042737 000400 177730 
2776 



BIC 
SIC 
BIC 



SEQ 0068 



0BIT06.KMCR 
♦BIT05.MMR3 
«6IT08.0CSR 



DISABLE CACH 

AND MAPPING 

EXIT DIAGNOSTIC MODE 



KTJil-B DIAGNOSTIC 

TEST • TAG REGISTERS 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

2814 

2815 

2816 

2817 

2618 

2819 

2820 

2821 

2822 



012350 

2823 

2824 012352 

2825 012356 

2826 012360 

2827 012364 

2828 012372 

2829 012374 

2830 012402 

2831 012406 



000004 

005737 
001002 
000137 
032737 
001177 
052737 
004737 
005237 



E6 
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SEQ 0069 



.S8TTL TEST - TAG REGISTERS 

S* THIS TEST WILL AUTOSIZE MEMORY IN 128K WORDS. THEN DEPENDING 
!* ON THE AMOUNT OF MEMORY AVAILABLE. A PATTERN OF ALTERNATING O'S 
:* AND I'S UILL BE CONSTRUCTED TO VERIFY THE TAG REGISTERS. 

1 B6NTST 

1 SAVE TIMEOUT VECTOR 

ENABLE MMU 

s LET Rl - KIPAR6 

s REPEAT TO CONSTRUCT A MASK FOR NXM FOR MAPHOl 

; . LET Rl - Rl SHIFT. LEFT BY #1 

i . LET Rl - Rl * KIPAR6 

: UNTIL CARRY SET 

. SUAP Rl 

I LET Rl - Rl SHIFT. RIGHT BY #3 TO GET BITS<21-16> FROM <21-13> 

! LET KMCR<6> - #1 TO FNABLE CACHE 

; LET R2 - #TBLML FOR PATTERNS FOR LOU REGISTER 

i LET R3 - «TBLMH FOR PATTERNS FOR HIGH REGISTER 

: DO FOR ALL 16 PATTERNS 

; DO FOR 4 PATTERNS 

t . . LET MAPLOl - (R2)» 

s . . LET MAPHOl - (R3)» 

! . . LET MAPHOl - MAPHOl CLEAR. BY Rl NOT TO GET NXM 

: . . DO DIAGNOSTIC_DATA_IN TO ALLOCATE TAG PATTERN 

: . ENDDO 

: MOVE POINTERS THRU PATTERN TABLE TO PREVIOUS 4 UORDS 

: . ENABLE 22-BIT MMU 

: . 00 FOR 4 PATTERNS 

; . . LET MAPLOl - (R2)* 

! . . LET MAPHOl - (R3V 

5 . . LET MAPHOl " MAPHOl CLEAR. BY Rl NOT TO GET NXM 

5 . , DO DIAGNOTIC.DATA.IN FROM IN CACHE 

; .. IF NOT A HIT THEN 

... ERROR IN TAG REGISTERS 

; . ENOOO 

. DISABLE 22-BIT MMU 

ENOOO 

\ ENDTST 



!*TEST 31 TAG REGISTERS 

TST31: SCOPE 



001720 




TST 


PMIS 


i ANY PMI MEMORY? 






BNE 


It 


! YES 


012670 




JMP 


100 « 


IF NONE. EXIT TEST 


000040 


177734 11: 


BIT 


0BIT05.KMCR 


18 -BIT MODE? 






BNE 


TST32 :: IF YES. EXIT TEST 


000400 


177730 


BIS 


«BIT08.DCSR 


SELECT DIAGNOSTIC MODE 


002276 




JSR 


PC.MAPPR 


REMAP PROGRAM AREA 


177572 




INC 


MMRO 


ENABLE MMU 
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T31 TAG REGISTERS 



2032 012412 


052737 


000020 


172516 




BIS 


<>BIT04,MMR3 


2933 012420 


022737 


000040 


001720 




CMP 


#40,PMIS 


2034 012426 


001412 








BEQ 


51 


2035 








i 






2836 








! IF 


LESS THEN 


2M OF MEMORY, 


2837 








s 






2535 012430 


000241 








CLC 




2B39 012432 


A 4 A 4 

013701 


001720 






MOV 


PMIS.Rl 


2540 01243d 


AA£ t At 

006101 






41: 


ROL 


Rl 


2541 012440 


Ad^At 

033701 


001720 






BIS 


PMIS.Rl 


2542 012444 


t AW^^ 

103374 








BHIS 


4$ 


2543 012446 


AAAYA t 
000301 








SUAB 


Rl 


2544 012430 


AA^AA t 
006001 








ROR 


Rl 


2543 012432 


AA^AAt 
006001 








ROR 


Rl 


oa^& 
254D 














254 / 








: ALLOCATE DIFFERENT PATTERNS 


2545 














2549 012434 


A^ OT^T 

042 lil 


AAA 1 AA 
000100 


t 777Til 
17 If 51* 


3 ▼ : 


BIC 


#BIT06.KMCR 


2530 0124b2 


032 '3 / 


AAA t AA 
000100 


1 1 I f 34 




BIS 


#BIT06.KMCR 


OACI A1 047A 

2531 0124f0 


042 in 


AAAA AA 
000400 


t 7771il 
111/ 34 




BIC 


#BIT08.KMCR 


9aC9 A1 ^A1£. 

2632 0124 fo 


U32 ' 3 ' 


AAAAA A 
000040 


t 70C t £ 

172316 




BIS 


#BIT05.MMR3 


c033 Vle3U4 


At 07A^ 
012 '02 


At 0iL70 

012d f 2 






MOV 


#TBLML.R2 


2534 012310 


At 97 AH 
012 r03 


At 0710 

Ule / 32 






MOV 


#TBLMH.R3 


2533 012314 


At At 17 

01013 1 


AAt t Cf\ 
OOlloU 






MOV 


R1.$TMP0 


OAK& A1 9COA 

e53e 012320 


At 07AA 
012 '04 


AAAAAA 
OOUUU4 






MOV 


04.R4 


253 r 012324 


At O^At 
U12 'Ul 


AOAAAA 
UcUUUU 




6$ : 


MOV 


»20000,R1 


9AKA A1 OCTA 

2535 01233U 


A t 0*7 A^ 


AAAAAA 
00U004 






MOV 


M R5 


9AKO A1 9^XA 


At 00'«7 


1 7A9AA 
1 




7i • 


MOV 


(R2)*.MAPL01 


cBOO 01c3^U 


A1 3'^'^7 


1 7n3AA 






MOV 


(R3)».MAPH01 






AAt t £.f\ 

UUllDU 


1 rUcUD 




BIC 


♦TMPO.MAPHOl 


25D2 01233c 


AAA7T7 
USI4 for 


AA33CA 






JSR 


PC.DDIN 


3a&v m 
cBoo Ulc33D 










SOB 


R5.7* 


2504 0123DW 


m T7m 

Old rwX 


1 777TA 
XIII 3* 






MOV 


KMCR.Rl 


2563 012364 


OV31U1 








COM 


Rl 


9A^^ At 

2566 012366 


AT37At 
03e > wl 


At 7 AAA 
Ol rUUU 






BIT 


«17000.R1 


9A&^ At 

2567 0123 '2 


AAt AAt 








BEQ 


8« 


9A^A At 

2565 0123 r 4 


t AAA07 








ERROR 


♦ 27 


2569 














^A^A 

26 'O 








i NOU 


INVALIDATE BY WRITING Tl 


9A^ t 

2571 














OA^O At 

25 r2 0123f6 


16c rUe 


AAAA t A 




hi: 


SUB 


#10. R2 


OA^V At 9^A9 

26 r 3 012602 


102 '03 


AAAA t A 






SUB 


#10. R3 


9A^^ At O^A^ 

2674 012o06 


At 07AC 

012 r 03 


AAAAAA 
000004 






MOV 


#4,R5 


9A7K At O&t O 

26 r3 012612 


At 07At 

012 f 01 


AOAAAA 






MOV 


#20000. Rl 


OA^^ AtO^t^ 

26 r6 012616 


A t OOH7 

01223 ' 


1 '0204 




9$: 


MOV 


(R2)*.MAPL01 


9A77 At ot^^o 
26 r r Ulc6c2 


At 9HT7 

01233 1 


t 7A3A^ 






MOV 


(R3)+ .MAPHOl 


26 rO 012626 


AAH7H7 

043 in 


AAt t t^f\ 
OOllDU 


1 7A9Ail 
1 f U2UD 




BIC 


♦TMPO.MAPHOl 


3a7Q At9&TA 
26 r 7 012634 


AAA7T7 
004 f 3 » 


UUcc3h 






JSR 


PC. ODIN 




lot 




X I I I 3*t 




BIT 


#8IT15.KMCR 


2881 012646 


001001 








BNE 


10* 


2882 012650 


104027 








ERROR 


♦ 27 


2883 012652 


077517 






10«: 


SOB 


R5.9* 


2884 012654 


077455 








SOB 


R4.6» 


2885 012656 


005037 


177572 






CLR 


MMRO 


2886 012662 


042737 


000400 


177730 




BIC 


«BIT08.DCSR 


2887 012670 








100»: 






012670 


000440 








BR 


TST32 



SEQ 0070 



: ENABLE 22-BIT 

s IF 2M PRESENT. ONLY 21ST MASKED 
: DON'T CONSTRUCT MASK 

: UP A MASK FOR MAP HIGH REGISTERS 

; CLEAR CARRY 

: SAVE KIPAR6 

; . ROTATE LEFT Rl 

: . AND ADD BIT AT FIRST POSITION 

; . IF CARRY NOT SET. BRANCH 

; <15-8>< ><7-0> 

: NOU GET ADDRESS BITS <21-16> 
i FROM <21-14> 

TAG REGISTERS 

: DISABLE CACHE 

: ENABLE CACHE 

; MAKE SURE THAT VALID READ 

: ENABLE MAPPING 

J POINTER FOR LOU MAP PATTERNS 

; POINTER FOR HIGH MAP PATTERNS 

J SAVE THE MASK 

; COWTER FOR 16 PATTERNS 

; . TO ACCESS THRU MAP REG. 1 

: . DO EACH FOR AT A TIME 

: . . LOAD LOU MAP 

: . . LOAD HIGH MAP 

: . . MASK OUT NXM 

: . . DO DIAGNOSTIC DATI 

: . . DO FOR ALL 4 PATTERNS 

.- . STORE SETS VALID? 

; . COMPLEMENT VALID BITS 

s . THAT'S ALL VALID BITS 

: . IF ALL SET BEFORE COM. BRANCH 

: . NOT ALL VALID BITS SET 

E SAME LOCATIONS 

J . MOVE POINTER TO -4 

s . MOVE HIGH MAP POINTER TOO 

J . VALIDATE ALLOCATED PATTERNS 

J . POINTER TO MAP 1 

: . . LOAD LOU MAP 

; . .LOAD HIGH MAP 

! . . MASK OUT NXM 

: . . DO DAIGN. DATA IN 

! . . HIT? 

! . . IF HIT. BRANCH 

! . . IN TAG REGISTERS 

; . . DO FOR ALL 4 PATTERNS 

5 . REPEAT FOR ALL 16 PATTERNS 

: DISABLE MMU 

i EXIT DIAGNOSTIC MODE 



EXIT TEST 
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2888 














2889 










> 




2890 










J PATTERNS FOR 


LOU MAP REGISTER 


2891 














2892 


012672 


125240 


052520 


000000 


TBLML: .UORD 


125240 , 52520 , 0 . 177760 




012700 


177760 










2893 


012702 


052520 


000000 


177760 


.UORD 


52520.0.177760.125240 




012710 


125240 










2894 


012712 


000000 


177760 


125240 


.WORD 


0 . 177760 , 125240 , 52520 




012720 


052520 










2095 


012722 


177760 


125240 


052520 


.UORO 


177760 . 125240 , 52520 . 0 




012730 


A AAA A A 

000000 










2896 














2897 










; PATTERNS FOP 


HIGH MAP REGISTER 


2898 














2899 


012792 


AAAAC ^ 

000052 


000025 


000000 


TBLnH: .WORD 


52,25.0,77 




012740 


000077 










2900 


012742 


000025 


000000 


000077 


.UORD 


25.0.77.52 




012750 


000052 










2901 


012752 


000000 


000077 


000052 


.UORO 


0.77,52.25 




012760 


000025 










2902 


012762 


000077 


000052 


000025 


.UORO 


77,52.25,0 




012770 


000000 











FIRST PATTERN THRU 4 TAGS 

SECOND PATTERN 

THIRD 

FOURTH 

FIRST FOR HIGH MAP REGISTER 

SECOND 

THIRD 

FOURTH 



KTJli-B DIAGNOSTIC MACRO Y05.02 

TEST - CACHE RAM BIT PATTERN TEST 

2904 

2905 

2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 

2914 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2954 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 

2958 
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SEQ 0072 



.SBTTL TEST - CACHE RAM BIT PATTERN TEST 

♦ THIS TEST IS DONE TO CHECK THE OPERATION OF 

♦ THE CACHE RAM . BIT PATTERNS 0.177777.52525 

♦ AND 125252 ARE WRITTEN TO ALL OF THE MEMORY 

♦ USED AND THEN VERIFIED 

BGNTST 



♦ 60 SET UP THE CACHE IMAGE TABLE 
* 

LET RO :- OCTBLE 
REPEAT 

IF RO POINTS TO OCTAL BOUNDARY ADDRESS THEN 
WE HAVE FOUND THE BEGINNING OF THE TABLE 
ELSE 

POINT RO TO THE NEXT ADDRESS 
ENDIF 

UNTIL WE HAVE FOUND BEGINNING OF THE TABLE 

* 

♦ SET UP BOARD FOR THE TRANSFERS 
* 

ENABLE UNIBUS MAPPING 
ENABLE DIAGNOSTIC MODE 
ENABLE CACHE 

DO FOR PATTERN 0.177777.52525.125252 

* 

♦ INITIALIZE THE CACHE TABLE 
* 

DO FOR ALL OF THE CACHE TABLE 
. . WRITE PATTERN TO TABLE 
. ENDDO 

* 

♦ ALLOCATE ALL THE CACHE 
* 

DO UNTIL ALL CACHE ALLOCATED 
. . DO A DIAGNOSTIC DATI NPR CYCLE (ON OCTAL BOUNDARY) 
. ENDDO 

* 

♦ CHECK THAT THE DATA GOT CACHED CORRECTLY 
* 

DO FOR ALL OF THE CACHE TABLE 
. DO A DIAGNOSTIC DATI NPR CYCLE 
. IF DDR NEQ PATTERN THEN 
. . ERROR IN CACHE RAM 
. ENDIF 
ENDDO 
ENDDO 

ENDTST 



; *************************************************************** 

♦TEST 32 CACHE RAM BIT TEST 

;*************************************************************** 



16 
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T32 CACHE RAM BIT TEST 



SEQ 0073 



012772 

2959 012774 

2960 013000 
2961 

2962 
2963 

2964 013002 

2965 013010 
CHE TABLE 

2966 013014 

2967 013016 

2968 013022 

2969 013024 

2970 0n026 

2971 013030 

2972 013032 

2973 013036 

2974 013042 

2975 013044 

2976 013050 
2977 

2978 
2979 

2980 013052 

2981 013060 

2982 013064 

2983 013072 

2984 013100 

2985 013104 
2986 

2987 
2988 

2989 013110 

2990 013114 

2991 013116 
2992 

2993 
2994 

2995 013120 

2996 013124 

2997 013130 

2998 013132 

2999 013136 

3000 013142 
3001 

3002 
3003 

3004 013144 

3005 013150 
3006 

3007 013154 

3008 013156 

3009 013162 

3010 013166 

3011 013174 

3012 013176 

3013 013200 

3014 013204 



000004 
005737 
001511 



052737 
012700 

010001 
042701 
005701 
001402 
005720 
000771 
012702 
012703 
010022 
062700 
077304 



052737 
005037 
052737 
052737 
012700 
013701 



012702 
011021 
077202 



012702 
012703 
005001 
012237 
004737 
077305 



012703 
013702 

005001 
010237 
004737 
032737 
001001 
104030 
023722 
001401 



001720 



000400 177730 
002054 



177760 



TST32: 



SCOPE 

TST 

BEQ 



PMIS 
TST33 



ANY PMI MEMORY? 
! IF NONE. EXIT TEST 



FIND THE FIRST OCTAL BOUNDARY ADDRESS IN THE TABLE 



002172 
000004 

000020 



000040 172516 
170202 

000400 177730 
000100 177734 
001774 
002172 



000040 



002172 
000004 

170200 
002254 



000040 
002172 



170200 
002254 

100000 177734 



5$: 



lo^ 

12* t 



BIS 


»BIT08.0CSR 


! SELECT DIAGNOSTIC MODE 


MOV 


tfCTBLE.RO 


; GET POINTER TO THE START OF THE SPACE ALLOCATED 


MOV 


RO.Rl 


; SAVE IT IN Rl FOR WORKING 


BIC 


#177760. Rl 


; MASK IN THE LEAST SIGNIFICANT DIGIT 


TST 


Rl 


; IS THE ADDRESS ON AN OCTAL BOUNDARY 7 


BEQ 


10* 


; YES. THEN GO SET UP THE TABLE ADDRESSES 


TST 


(R0)» 


t NO, THEN GET THE NEXT ADDRESS 


BR 


5* 


; . GO CHECK IF IT FALLS ON AN OCTAL BOUNDARY 


MOV 


«0BADR.R2 


s GET POINTER TO THE OCTAL BOUNDARY TABLE 


MOV 


#4,R3 


; SET UP THE LOOP COUNTER 


MOV 


R0.(R2)* 


s . GO PUT ADDRESS INTO THE TABLE 


ADD 


020, RO 


! . GET NEXT OCTAL BOUNDARY 


SOB 


R3.12* 


; . FILL UP THE TABLE 7 



INITIALIZE THE BOARD FOR THE TRANSFERS 



15*: 



BIS «BIT5.8«MMR3 

CLR MAPHOO 

BIS «BIT8.DCSR 

BIS «BIT6.KMCR 

MOV «PTRN16.R0 

MOV OBADR.Rl 



ENABLE UNIBUS MAPPING 
CLEAR HIGH MAP REGISTER 
ENABLE DIAGNOSTIC MODE 
ENABLE THE CACHE 

GET POINTER TO THE CACHE PATTERN TABLE 
GET POINTER TO THE CACHE IMAGE TABLE 



INITIALIZE THE CACHE IMAGE TABLE TO CURRENT PATTERN 



20«: 



MOV 
MOV 
SOB 



«40.R2 

(RO).(Rl)* 

R2.20* 



SET UP LOOP COUNTER 

. MOVE PATTERN TO TABLE 

. HAVE UE DONE IT 40 TIMES 



ALLOCATE ALL THE CACHE MEMORY AVAILABLE 



MOV »0BADR.R2 

MOV #4,R3 

CLR Rl 

25*: MOV (R2)*.MAPL00 

JSR PC.DDIN 

SOB R3.25« 



GET ADDRESS OF OCTAL BOUNDARIRES UITHIN THE TABjE 

SET UP LOOP COUNTER 

NON-MAPPED ADDRRESS'O 

. SET UP MAP FOR DIAG NPR DATI CALL 

. GO DO A DIAGNOSTIC DATA IN CYCLE 

. HAVE UE DONE IT 4 TIMES ? 



CHECK THE CACHE RAM IMAGE PATTERN 



177732 



30$: 



35*; 



MOV 
MOV 

CLR 
MOV 

JSR 

BIT 

BNE 

ERROR 

CMP 

BEQ 



«40.R3 
0BADR.R2 

Rl 

R2.MAPL00 

PC.DDIN 

OBITIS.KMCR 

35* 

♦ 30 

DDR.(R2}» 
40$ 



SET UP LOOP COUNTER 
GET ADDRESS OF CACHE IMAGE TABLE 
(THIS UHOLE TABLE SHOULD BE CACHED) 
USE ADDRESS 0 

. GET ADDRESS FPR DIAG. DATA IN CYCLE 
. GO DO A DIAGNOSTIC DATA IN 
. HIT? 

. IF YES. BRANCH 

. OTHERWISE. ERROR 

. DID IT GET STORED CORRECTLY ? 

. YES. THEN GO CHECK THE NEXT LOCATION 



J6 
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T?2 CACHE RAM BIT TEST 

3:i5 013206 104030 ERROR «30 

3016 013210 077316 40*: SOB R3.30$ 

3017 013212 005720 TST (RO)* 
3016 013214 001333 BNE 15« 

3019 013216 042737 000400 177730 BIC 0BIT08.DCSR 
3020 



. . NC.THEN ERROR IN CACHE RAM 
. . HAVE WE CHECKED ALL THE RAM ? 
. ALL PATTERNS DONE? 
. IF NOT HAVE DONE. BRANCH 
EXIT DIAGNOSTIC MODE 



KTJll-B DIAGNOSTIC 
TEST - BOOT ROMS TEST 

3022 

3023 

3024 

3025 

3026 

3027 

3020 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3040 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3050 

3059 

3060 

3061 

3062 013224 
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SEQ 0075 



.SBTTL TEST - BOOT ROMS TEST 

* THIS TEST CHECKS FOR THE PRESENCE OF BOOT ROMS. 

* A CRC TEST IS PERFORMED FOR ALL THE ROM'S. 



IF THEY ARE FOUND. 



BGNTST 



LET BCSR - BCSR SET. BY 06IT05 TO ENABLE ACCESSING OF ROM'S 
LET PCR « «0 TO ACCESS FIRST PAGE 
LET R4 « 0173000 FOR STARlING ADDRESS 
LET ITMPO » #0 TO CLEAR COUNT FOR EMPTY ROM'S 
DO FOR ALL 4 POSSIBLE ROMS 
. IF (R4) EQ 0161777 (EMPTY SOCKET) THEN 
INCREMENT ITMPO TO COUNT EMPTY ROM'S 
IDENTIFY POSITION OF EMPTY SOCKET 
ELSE 

LET Rl - 00 TO COUNT BYTES IN ROMS 
DO FOR lACH location IN A ROM UNTILL Rl-128 
. IF LOCATION 24 ACCESSED THEN 
. . IF (R4) NE 0173000 THEN 
. . . ERROR IN LOCATION 24 
. . ENDIF 

. . INCREMENT Rl NOT TO DO BYTE 25 
. ELSE 

. . CALCULATE CRC FOR THE BYTE 
ENDIF 

INCREMENT Rl FOR ThE NEXT BYTE 
ENDDO 
ENDOO 

IF ITMPO NE 04 NOT ALL EMPTY 

TRY TO WRITE TO 30173000 IN DIAGNOSTIC MODE AND OUT 

IF NO TIMEOUT THEN 
. . ERROR WRITE ACCESS TO ROMS DOES NOT TIMEOUT 
. ENDIF 
ENDIF 



ENOTST 



3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 



013224 000004 



IfBETST: 

; ;***••••********•**••*••**••••*••**•••••*••••••••••••••••••••««* 

s*TEST 33 BOOT ROMS TEST 

TST33: SCOPE 



013226 
013234 
013242 
013246 
013252 



042737 
052737 
005037 
012704 
005037 



000410 177730 
000200 177520 
177522 
173000 
001160 



PREPARE TO 00 CRC 

6IC 0BIT08!6IT03.DCSR 

BIS 0BIT07,BCSR 

CLR PCR 

MOV 0173000. R4 

CLR ITMPO 

DO FOR EACH POSSIBLE ROM 



LEAVE STANDALONE MODE AND ENABLE ROMS 

TO ENABLE BOOT ROMS 

TO READ PAGE 0 

R4 POINTS TO FIRST ADDRESS 

CLEAR EMPTY SOCKET COUNT 



KTJll-B DIAGNOSTIC 
T33 BOOT ROMS TEST 



L6 
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3075 013256 

3076 013262 

3077 013264 

3078 013266 
3079 

3080 
3081 

3082 013270 

3083 013274 

3084 013276 

3085 013302 

3086 013304 

3087 013312 

3088 013314 

3089 013322 

3090 013324 

3091 013326 

3092 013332 

3093 013334 

3094 013335 

3095 013336 

3096 013342 

3097 013346 

3098 013352 
3099 

3100 
3101 

3102 013354 

3103 013360 

3104 013362 

3105 013366 

3106 013370 

3107 013372 

3108 013374 
3109 

3110 
3111 

3112 013400 

3113 013402 

3114 013406 

3115 013410 

3116 013412 

3117 013414 

3118 013416 

3119 013422 

3120 013424 

3121 013430 

3122 013432 

3123 013434 
3124 

3125 
3126 

3127 013436 

3128 013442 

3129 013444 

3130 013446 

3131 013450 



022704 
103475 
005001 
005005 



022714 
001027 
005737 
001017 
122737 
001413 
032737 
001007 
010446 
104401 
104403 
006 
000 
104401 
005237 
062704 
000741 



022701 
001007 
022724 
001401 
104031 
005201 
000137 



112403 
012702 
000241 
006005 
006003 
102006 
012746 
040516 
042705 
052605 
077213 
005201 



022701 
003344 
005705 
001401 
104031 



173776 



II: 



CMP 
BLO 
CLR 
CLR 



01737 76. R4 

111 

Rl 

R5 



CHECK FOR EMPTY SOCKETS AND EXIT IF SO 



161777 
001206 
000001 
000040 

013612 



001175 
001160 
000200 



001220 
000052 



000024 
173000 

013434 

000010 

120001 
120001 



000200 



21: 



31: 



41: 



CHP 


•161777, CR4) 


BNE 


31 


TST 


IPASS 


BNE 


21 


CMPB 


•APTENV.IENV 


BEQ 


21 


OTT 


Qui 1 03 , 9932 




21 


nuv 


OA f CO ^ 


1 TKC 




T VDrtC 




. DT 1 C 


D 




Q 


TYPE 


.ICRLF 


INC 


ITMPO 


ADD 


«200.R4 


BR 


11 


:h ROM 


CHECK LOCATION 


CMP 


#24. Rl 


BNE 


5« 


CMP 


9173000. (R4} 


BEQ 


41 


ERROR 


«31 


INC 


Rl 


JMP 


81 



; 00 CRC FOR EACH BYTE 



51; 
61: 



7»i 
81: 



MOVB 

MOV 

CLC 

ROR 

ROR 

BVC 

MOV 

BIC 

BIC 

BIS 

SOB 

INC 



CR4)..R3 
#8..R2 

R5 
R3 
71 

OPOLY.-(SP) 

R5,(SP) 

#P0LY.R5 

(SP)».R5 

R2.6I 

Rl 



IF A ROM DONE. CHECK FOR 0 IN R5 



CMP 
BGT 
TST 
BEQ 
ERROR 



«128. 

31 

R5 

101 

*31 



.Rl 



SEQ 0076 



. ALL ROM'S DONE? 
. IF SO. EXIT 

. CLEAR COUNTER THRU A ROM 
. INITIALIZE PARTIAL TRC 



. EMPTY SOCKET? 

. IF NOT. BRANCH TO DO CRC 

. FIRST PASS? 

. IF NOT. BRANCH 

IN APT MODE? 

IF SO. SKIP PRINTOUT 

. IN UFO MODE? 

. IF IN UFO. BRANCH 

. PUT NUMBER TO TYPE OUT 

. TYPE ASCII MESSAGE 

. CALL TYPE OUT ROUTINE 

. TYPE 6 DIGITS 

. SUPRESS LEADING O'S 

. CARRIAGE RETURN 

. INCREMENT EMPTY SOCKET COUNT 

. PREPARE TO DO NEXT ROM 

. BRANCH TO DO NEXT ROM 

DO CRC ON IT 

. LOCATION 24 ACCESSED? 

. IF NO. GO 00 CRC 

. PROPER DATA AT 247 

. IF YES. BRANCH 

. UR0N6 DATA AT 24 

. INCREMENT FOR AN EXTRA BYTE 

. 00 NOT 00 CRC FOR 24 



. STORE CORRECT DATA IN R3 

. NUMBER OF BITS PER BYTE 

. . CLEAR CARRY 

. . LOU BIT PARTIAL TO CARRY 

. . CARRY TO BYTE AND BYTE TO CARRY 

. . XOR OF PARIAL AND BYTE LOU BITS 

. , XOR POLY TO PARTIAL (4 INSTRUCTIONS) 

. . NOT PARTIAL AND POLY 

. . NOT POLY AND PARTIAL 

. . POLY XOR PARTIAL 

. . DECREMENT BIT COUNT AND CONTINUE 

. COUNT BYTES 



. ALL 64 UORDS DONE? 

. IF NOT. BRANCH 

. IF YES. CRC 0? 

. IF CRC - 0. BRANCH 

. CRC FOR A ROM NOT EQUAL TO 0 
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SEQ 0077 



3132 013452 


000137 


013256 




10 (: 


JMP 


1» 


. DO FOR NEXT ROM 


3133 








; 








3134 








; TRY 


TO URITE 


TO GET A TIMEOUT 




3135 








J 








3136 013456 


013737 


000004 


001160 


11*: 


MOV 


ERRVEC.ITMPO 


SAVE TIMEOUT VECTOR 


3137 013464 


012737 


013502 


000004 




MOV 


«15«.ERRVEC 


POINT NEU TO PROGRAM 


313a 013472 


005037 


173000 




141: 


CLR 


9«173000 


TRY TO URITE TO 1ST PAGE OF ROM 


3139 013476 


104031 








ERROR 


♦ 31 


URITE ACCESS TO ROM'S DIDN'T TIMEOUT 


3140 013500 


000402 








BR 


161 


3141 013502 


005726 






151: 


TST 


(SP)^ 


RESTORE STACK 


3142 013504 


005726 








TST 


(SP)^ 




3143 013506 


032737 


000400 


177730 


161: 


BIT 


«BIT06.DCSR 


OUT OF STANDALONE MODE? 


3144 013514 


001013 








BNE 


201 


IF NOT. EXIT TEST 


3145 013516 


013702 


177734 






MOV 


KMCR,R2 


MAKE SURE THAT 


3146 013522 


042702 


177700 






BIC 


#177700, R2 


AT I EAST SOME OF 


3147 013526 


022702 


000077 






CMP 


#77, R2 


MEMORY PMI 


314a 013532 


001404 








BEQ 


201 


IF NOT. BRANCH 


3149 013534 


052737 


000400 


177730 




BIS 


#6IT08,DCSR 


00 1 MORE TIME IN STANDALONE MODE 


3150 013542 


000753 








BR 


141 




3151 013544 


052737 


000010 


177730 


20«: 


BIS 


#BIT03,0CSR 


DISABLE UBA ROM RESPONSE 


3152 013552 


012737 


013570 


000004 




MOV 


#25*.ERRVEC 


POINT NEU TIMEOUT VECTOR 


3153 013560 


005737 


173000 






TST 


9#173000 


READ BOOT ROM 


3154 013564 


104037 








ERROR 


♦ 37 


0SCR<3> DIDN'T DISABLE USA ROM 


3155 013566 


000402 








BR 


261 




3156 013570 


005726 






251: 


TST 


(SP)^ 


RESTORE STACK 


3157 013572 


005726 








TST 


(SP)^ 




315a 013574 


042737 


000410 


177730 


261: 


BIC 


«SIT0B!BIT03,0CSR 


LEAVE STANDALONE MODE 


3159 0136C2 


013737 


001160 


000004 




MOV 


♦TMPO,ERRVEC 


RESTORE STACK 


3160 013610 


000417 








BR 


TST34 ii EXIT TEST 


3161 
















3162 013612 


101 


104 


104 


NRGH: 


.ASCIZ 


/ADDRESS OF EMPTY UBA SOCKET / 


013615 


122 


105 


123 










013620 


123 


040 


117 










013623 


106 


040 


105 










013626 


115 


120 


124 










013631 


131 


040 


125 










013634 


102 


101 


040 










013637 


123 


117 


103 










013642 


113 


105 


124 










013645 


040 


000 













3163 



.EVEN 
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SEQ 0079 



TEST - UNIBUS MEMORY TEST 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 

3208 



.SBTTL TEST UNIBUS MEMORY TEST 

* THIS TEST READS KMCR<5-0> TO FIND OUT HQU MUCH UNIBUS MEMORY IS 

* AVAILABLE. THEN ALTERNATING O'S AND I'S UILL BE WRITTEN AND READ 

* FROM MEMORY. IF THE SYSTEM CONTAINS ALL UNIBUS MEMORY. THE FIRST 

* 32K ARE NOT GOING yq TESTED. 



BGNTST 

IF KMCR<5-0> 
. EXIT TEST 
ENOIF 

IF KMCR<5-0> 



- <0-0> THEN NO UNTBUS MEMORY 



LET Rl 
LET R2 
ELSE 

LET Rl 
LET Rl 
LET R2 
IF KMCR<5> 
. LET Rl 



<1-1> THEN ALL UNIBUS MEMORY 
#1600 LOWER BOUNDARY FOR PAR 
«7600 HIGH BOUNDARY FOR PAR 



C0MPLEnENT(KMCR<4-0> ) 

Rl SHIFT. LEFT BY #7 TO GET LOWER BOUNDARY PAR 
»7600 HIGH BOUNDARY 

«0 THEN 22 BIT MODE 
Rl SET. BY •BIT15!B1T14!BIT13!BIT12 FOR 22 BITS 



. LET R2 - R2 SET. BY •B1T15!BIT14!BIT13!BIT12 
ENOIF 
ENOIF 

LET MMRO<0> • #1 TO ENABLE MMU 

REMAP PROGRAM AREA 

DO FOR KIPAR6 FROM Rl TO R2 

DO FOR R4 FROM #140000 TO #157776 BY #2 FOR 4K THRU KIPAR6 
LET (R4) - #125252 TO WRITE A PATTERN 
IF (R4) NE #125252 THEN 
. ERROR IN UNIBUS MEMORY 
ENOIF 

LET (R4) - COMPLEMENT <(R4)> 
IF (R4) NE #52525 THEN 
. ERROR IN UNIBUS MEMORY 
ENOIF 
ENODO 
ENODO 

DISABLE rmu 



ENOTST 



♦TEST 34 



UNIBUS MEMORY TEST 



3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 

32ia 



013650 000004 



TST34: SCOPE 



CHECK IF ALL NON-UNIBUS MEMORY 



013652 032737 000037 
OlSMO 001473 



015662 013701 177734 



177734 



BIT 
BEQ 



#37.KMCR 
TST35 



CHECK IF ALL UNIBUS MEMORY 
MOV KMCR.Rl 



; BITS <5-0> CLEAR? 
IF YES. SKIP TEST 



SAVE KMCR 



B7 
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T34 UNIBUS rCnORY TEST 



SEQ 0079 



3219 013666 

3220 013672 

3221 013676 

3222 013700 

3223 013704 

3224 013710 

3225 013712 
3226 

3227 
322e 

3229 013716 

3230 013720 

3231 013724 

3232 013732 

3233 013734 

3234 013740 

3235 013744 
3236 

3237 
3236 

3239 013752 

3240 013756 

3241 013762 

3242 013766 

3243 013772 

3244 013776 

3245 014002 

3246 014004 

3247 014006 
3246 014010 

3249 014014 

3250 014016 

3251 014020 

3252 014022 

3253 014026 

3254 014030 

3255 014036 

3256 014042 

3257 014044 
3256 

3259 
3260 
3261 
5262 
3263 
3264 
3265 
3266 
3267 
3266 
3269 
3270 
3271 



042701 
022701 
001005 
012701 
012702 
000420 
004737 



010201 
012702 
032737 
001007 
052701 
052702 
052737 



004737 
005237 
010137 
012704 
012714 
022714 
001401 
104034 
005114 
022714 
001401 
104034 
005724 
022704 
101361 
062737 
020237 
101351 
005037 



177700 
000077 

001600 
007600 

002456 



007600 

000040 177734 

170000 
170000 

000020 17251A 



002276 
177572 
172354 
140000 

125252 
125252 



052525 



160000 

000200 172354 
172354 

177572 



Hi 
I 
t 



BIC 

CMP 

BNE 

MOV 

MOV 

BR 

JSR 



•177 700.^1 
#77. Rl 
II 

M600.R1 
«7600,R2 
21 

PC.UMSIZ 



LEAVE ONLY »5-0> 

BITS <5-0> ALL SET? 

IF NOT. BRANCH 

DON'T TEST FIRST 32K 

248KB MAXIMUM CONFIGURATION 

GO 00 TEST 

SIZE UNIBUS MEMORY 



ON RETURN R2 HAS PAR VALUE FOR UNIBUS MEMORY 



MOV 
MOV 
BIT 
BNE 
BIS 
BIS 
BIS 



R2.R1 
«7600.R2 
•BIT05.KMCR 
21 

«170000.R1 
*170000.R2 
•6IT04.MMR3 



: STORE LOWER BOUNDARY 

i HIGHER BOUNDARY 

( 18 BIT MODE? 

I TF YES, GO DO TEST 

s EXTEND TO 22 BITS 

: FOR HIGHER BOUNDARY TOO 

i ENABLE 22 BIT MAPPING 



NOW URITE MEMORY UITH 01 PATTERN, VERIFY IT AND DO THE SAME FOR 10 PATTERN 



2%. 



3$: 
4»: 



5» : 



61: 



JSR 


PC.MAPPR 


i REMAP PROGRAM TO FIRST 32K 


INC 


MMRO 


: ENABLE MMU 


MOV 


R1.KIPAR6 


: START AT LOUER BOUNDARY 


MOV 


•140000. R4 


; . START 4K PAGE 


MOV 


•125252. (R4) 


! . . URITE FIRST PATTERN 


CMP 


•125252. (R4) 


: . . URITEN OK? 


OEO 


51 


: . . IF OK. BRANCH 


ERROR 


♦ 34 


; . . IN UNIBUS MEMORY 


COM 


(R4) 


: . . COMPLEMENT INITIAL PATTERN 


CMP 


•52525, (R4; 


! . . NEU PATTERN OK? 


BEQ 


h\ 


; . . IF OK. BRANCH 


ERROR 


♦ 34 


s . . IN UNIBUS MEMORY 


TST 


(R4). 


; . . GET NEXT MEMORY LOCATION 


CMP 


•160000, R4 


} . . LAST ONE IN 4K PAGE? 


BHI 


41 


: . . IF NOT. BRANCH 


ADO 


•200.KIPAR6 


! . GET NEXT PAGE 


CMP 


R2.KIPAR6 


: . LAST PAGE DONE? 


BHI 


31 


1 . IF NOT. BRANCH 


CLR 


MMRO 


: DISABLE MMU 



.SBTTL UBE TESTS FOR THE UNIBUS ADAPTER BOARD 



;* 
»• 
»• 
;• 
\* 
i* 
i* 
s* 
;• 



THE FOLLOWING TESTS REQUIRE THE USE OF THE UNIBUS EXERCISER 
TO TEST OUT THE UNIBUS ADAPTER BOARD. SOME TESTS REQUIRE ONE 
UBE OTHER TESTS REQUIRE TUO UBE'S. 

THE PROGRAM UILL AUTOSIZE TO SEE HOW MANY UBE'S ARE IN THE 
SYSTEM. DEPENDING ON THE RESULTS OF THE AUTOSIZING CERTAIN 
TESTS UILL BE SELECTED OR DESELECTED. 
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TEST - UBE AUTOSIZING ROUTINE 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

3£89 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3300 

3307 

3308 

3309 

3310 

3311 

3312 

3313 

3314 

3315 

3316 

3317 

3318 

3319 

3320 

3321 



014050 000004 

3322 

3323 014052 042737 000400 177730 

3324 014060 042737 000040 172516 

3325 014066 005737 001206 

3326 014072 001051 
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SEQ 0080 



.SBTTL TEST - UBE AUTQSIZING ROUTINE 

8* 

i* THE FOLLOWING ROUTINE IS USED TO AUTOSIZE THE NUMBER OF 
UBE'S PRESENT IN THE SYSTEM. 



BGNTST 



LET RO #170000 
LET R2 :- 0510 
LET Rl :- MEIOB 
LET R3 :- WEIVEC 
LET 4 :- OTOUT 

DO FOR RO •170000 TO 170160 
TEST FOR (RO) 
IF TIMEOUT OCCURS THEN 
. LET RO !- RO ♦ 20 
. LET R2 :- R2 * 4 
. LET (SP) #CHECK 
ELSE 



1ST UBE ADDRESS 
1ST UBE VECTOR 
TABLE FOR 1ST UBE 
LOCATION FOR FIRST UBE VECTOR 
J SETUP TIMEOUT VECTOR 
BY 20 

;UILL TIMEOUT IF NOT THERE 

sGET NEXT UBE ADDRESS 

sGET NEXT UBE VECTOR LOCATION 



ASSIGN THE UBE ADDRESSES TO THE CURRENT UBE TABLE 



DO FOR R4 :- 1 TO 5 BY 1 

LET (RD* :- RO 

LET RO :- R0»2 

ENDDO 

LET RO RO ♦ 4 

LET (RD* :- RO 

LET RO RO ♦ 2 



jPOINT TO LAST DEVICE ADDRESS 
; POINT RO TO NEXT UBE ADDRESSES 
ASSIGN UBE VECTORS TO CURRENT UBE TABLE 



GET POINTER TO VECTOR ADDRESS 
GET VECTOR PSU LOCATION 
GET POINTER TO VECTOR PSW 
GET NEXT VECTOR ADDRESS 



LET (R3)* :- R2 
LET R2 R2 ♦ 2 
LET (R3)* :- R2 
LET R2 :- R2 ♦ 2 
IF UE HAVE FOUND TWO UBE'S THEN 
. EXIT TEST 
ENOIF 
ENDIF 
ENDDO 
ENDTST 



***************************************************************** 

i*TEST 35 UNIBUS EXERCISER AUTOSIZING ROUTINE 

TST35: SCOPE 



BIC 
BIC 
TST 
BNE 



0BIT08.DCSR 
#BIT05.MMR3 
3ft$PASS 
10$ 



MAKE SURE THAT OUT OF DIAGN. MODE 

MAPPING DISABLED 

IS THIS THE FIRST PASS 7 

NO, THEN NO NEED TO SIZE AGAIN 



D7 
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T35 UNIBUS EXERCISER AUTOSIZING ROUTINE 

INITIALIZE POINTERS FOR AUTO-SIZING 



SEQ 0081 



3327 






3320 






3329 






SSSO 014074 


012700 


170000 


S3S1 014100 


012702 


000510 


3332 014104 


At ^^At 

012701 




3333 014110 


A4 ^^V^ 

012737 


014122 


3394 01411e 


OV3 r lO 




WW MA ton 
9933 Ol^leU 


AAAA 4 9 

0V0412 




9990 






999 r 






9990 






9999 






994U UKICC 


UOC rUo 


AAAAAA 
WUWWU4 


9941 VlmXdO 


A0AA07 


4 7A 1 AA 

1 rOloO 


994c V1419<: 


AA1 AVI 






AA37AA 


AAAA3n 


9944 U1414U 


woe rUc 


AAAAAA 
WWWVW** 


MA%AA 
9943 UA4144 


AAA7AA 
OOv f 04 




9940 






XXA7 
994 f 






3940 






994 






933W Vi4140 


vl£ r\l4 


WW WWW 3 


9931 U1413C 


UlUUcl 




993c U14134 


UVI3 rcU 




9939 U1413D 


ft77AnX 
\J f r 4U9 








WWWWW4 


9933 U141D4 


Wl wwcl 




9930 U141DD 


WW J r CW 




033 t 






9930 






993V 






99DU 






99D1 






WAS m A 1 7n 

990c 0141 rU 


A« A331 




9909 vl41 rc 


Uw3 rcc 




TVAA niA17A 
9904 U141r4 


A1 A331 
WlWCCl 




W&< mA17A 
99D3 U141 rO 


UU3 r Cc 




9900 U14CUV 


UU3c 9 r 


AA4 799 

Owl rcc 


WA7 
990 ' 






99DO 






WAO 

99oy 






W7n 
99 rv 






W71 
99 r 1 






W73 mA3/\A 
99 rc U14CV4 


Ucc ' 9 r 


AAAAAO 
UUWWWC 


W7'V niA919 
99 r a V14CXC 


Aftl A A 1 
UUi4Ul 




W7A niA31A 
99 r4 V14C14 


nnn7AA 

WWV f 4U 




99 r 3 






3376 






3377 






3378 






3379 






3380 014216 


012737 


002266 


3381 014224 


005737 


001722 


3382 014230 


001002 




3383 014232 


000137 


023122 



100*: 



MOV 
MOV 
MOV 
MOV 
TST 
BR 



«1 70000.ro 
#510. R2 
«BE1DB,R1 
«1$,9»4 

(RO) 
21 



TIMEOUT ROUTINE 



1*: 



ADD 
CMP 
BEQ 
ADD 
ADD 
BR 



04. SP 

R0,«170160 
10$ 

«20,R0 

#4.R2 

100$ 



GET ADDRESS OF FIRST POSSIBLE UBE 
GET VECTOR OF FIRST POSSIBLE UBE 
TABLE HEADER FOR 1ST UBE 
SET UP TIMEOUT VECTOR 
. IS THERE A UBE HERE 7 

. . YES. THEN BRANCH AROUND TOMEOUT ROUTINE 



READJUST THE STACK 

HAVE UE CHECKED ALL THE ADDRESSES 

YES THEN GO SEE IF UE FOUND ANY UBE'S 

NO. THEN GET THE NEXT UBE ADDRESS 

GET THE NEXT UBE VECTOR 

GO SEE IF THE NEXT UBE IS THERE 



ASSIGN UBE ADDRESSES TO THE CURRENT UBE TABLE 



2$: 
3$: 



MOV 
MOV 
TST 
SOB 
ADD 
MOV 
TST 



#5.R4 

R0.(R1)» 

(RO)* 

R4.3$ 

*4.R0 

RO.CRD* 

(ROJ* 



SET UP LOOP COUNTER 

. ASSIGN AN ADDRESS TO THE POINTER 

. GET THE NEXT ADDRESS 

. ARE UE DONE 7 NO THEN GO GET NEXT ADDRESS 
POINT RO TO LAST UBE ADDRESS 
PUT THE ADDRESS INTO THE POINTER TABLE 
POINT RO TO NEXT UBE ADDRESS 



ASSIGN UBE VECTORS TO CURRENT UBE TABLE 



MOV 
TST 
MOV 
TST 
INC 



R2.(R1)» 

(R2)* 

R2.(Ri;» 

(R2)» 

UBECT 



SEE IF UE HAVE FOUND TUO UBE'S 



CMP 
BEQ 
BR 



#2. UBECT 

10$ 

100$ 



GET POINTER TO VECTOR ADDRESS 
GET THE VECTOR PSU LOCATION 
GET POINTER TO VECTOR PSU 
GET THE NEXT UBE'S VECTOR ADDRESS 
FLAG UE HAVE FOUND ANOTHER UBE 



HAVE UE FOUND TWO UBE'S 
GO DO THE UBE TESTS 



PROGRAM UILL CHECK IF ANY UBE'S UERE FOUND 



10$: 



MOV 
TST 
BNE 
JMP 



«TIM0UT,9«4 
UBECT 
TST36 
U6EM 



RESTORE TIMEOUT VECTOR 
HAVE ANY UBE'S BEEN FOUND ? 
i GO 00 THE SELECTED TESTS FOR 1 
SKIP ALL THE UBE TESTS 



UBE 



E7 
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TEST - NPG ARBITRATION 



SEQ 0062 



3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 



3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 



014236 000004 



014240 
014244 
014252 
014260 
014266 
014274 
014300 
014302 
014310 
014312 
014314 
014322 
014330 
014332 



004737 
012737 
012777 
012777 
012777 
105777 
100375 
022777 
001001 
104032 
162737 
022737 
003750 
012737 



.SBTTL TEST - NPG ARBITRATION 

I* THIS TEST CHECKS THAT A NPG CAN BE GRANTED AT ANY PRIORITY OF THE CPU. 



BGNTST 



DO FOR PSU FROM «340 DOUNTO «0 BY 040 
LET aeElCC - -1 TO 00 1 CYCLE 
LET 9BE1BA « «$TMPO FOR THE ADDRESS 
LET aBElCRl - #2041 TO 00 1 DATI 
WAIT FOR aBElCRl<7>>l READY 
IF aSElCC EQ -1 THEN 

ERROR NPG DIDN'T HAPPEN 
ENOIF 
ENDDO 



ENDTST 



:*TEST 36 NPG ARBITRATION 

; : *************************************************************** 

TST36: SCOPE 



002502 
000340 
177777 
001160 
002041 
165710 



177776 
165724 
165720 
165714 



177777 165674 



000040 
000000 



177776 
177776 



000340 177776 



JSR PC . lUBE 

MOV «340.PSU 

It: MOV #-l,aBElCC 

MOV #«THPO.aBElBA 

MOV «2041,aBElCRl 

2* : TSTB SBEICRI 

BPL 2i 

CMP #-l.aBElCC 

BNE 31 

ERROR *32 

3»: SUB 040. PSU 

CMP #O.PSU 

BLE II 

MOV «340.PSU 



INITIALIZE THE UBE 

STORE PRIORITY 7 

. 00 FOR 1 CYCLE 

. STORE ADDRESS FOR DATI 

. DO 1 DATI AT NPG 

. . READY ON? 

. . WAIT FOR READY 

. CYCLE COUNT INCREMENTED? 

. IF YES. BRANCH 

. IF NO, ERROR IN NPG 

. DECREMENT PRIORITY 

. LAST ONE? 

. IF NOT. BRANCH 

RESTORE PRIORITY 



r 7 
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TEST - NO BUS GRANTS 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 

3456 

3457 

3458 

3459 

3460 

3461 

3462 

3463 

3464 

3465 

3466 

3467 

3468 

3469 

34 ro 

3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
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UITH PROCESSOR AT HIGHER PRIORITY 

.SBTTL TEST - NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 

* THIS TEST CHECKS THAT NO BUS REQUESTS ARE GOING TO BE HONORED 

* WHEN THE PROCESSOR HAS HIGHER PRIORITY THAN THE REQUESTING DEVICE. 
* 

BGNTST 

SET UP aOElVEC TO POINT TO ERROR CHECK.ROUTINE 
SET UP aBElPSU TO 0340 

« 

« TRY TO DO BR7 UITH CPU PRIORITY AT 7 
* 

LET aSElCRl - 021 TO DO 1 DATI 
LET PSU - #340 TO SET PRIORITY AT 7 
DO "NOP" 

IF INTERUPT THEN 

ERROR BG7 GRANTED UITH PROCESSOR AT HIGHER PRIORITY 
ENDIF 

* 

* TRY TO DO BR6 UITH CPU PRIORITY AT 7 - 6 
* 

DO FOR R3 FROM 0340 DOUNTO 0300 BY 040 
LET aSElCRl • Oil TO DO 1 OATI 
LET PSU - R3 TO CHANGE PRIORITY 
DO "NOP" 

IF INTERRUPT THEN 

ERROR B66 GRANTED UITH PROCESSOR AT HIGHER PRIORITY 
ENDIF 
ENDDO 

LET PSU - 0340 FOR THE NEXT PART 

* 

* TRY TO DO BR5 UITH CPU PRIORITY AT 7 - 5 
* 

DO FOR R3 FROM 0340 DOUNTO 0240 BY 040 
LET SBEICRI - 05 TO DO 1 OATI 
LET PSU - R3 TO CHANGE PRIORITY 
DO "NOP" 

IF INTERRUPT THEN 

ERROR BG5 GRANTED UITH PROCESSOR AT HIGHER PRIORITY 
ENDIF 
ENDDO 

LET PSU ■ 0340 

* TRY TO DO BR4 UITH CPU PRIORITY AT 7 - 4 
* 

DO FOR R3 FROM 0340 DOUNTO 0200 BY 040 
LET SBEICRI - 02003 TO DO 1 OATI 
LET PSU - R3 TO CHANGE PRIORITY 
DO "NOP" 

IF INTERRUPT THEN 

ERROR BR4 GRANTED UITH PROCESSOR AT HIGHER PRIORITY 
ENDIF 
ENDDO 

ENOTST 



SEQ 0083 



G7 
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TEST - NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 

3481 i 

3482 ; 

3483 

3484 



SEQ 0084 





014340 


000004 


3485 






3486 


014342 


004737 


3487 


014346 


012737 


3488 


014354 


012777 


3489 






3490 






3491 






3492 


014362 


012777 


3493 


014370 


012777 


3494 


014376 


000240 


3495 


014400 


000405 


3496 


014402 


005077 


3497 


014406 


062706 


3498 


014412 


104032 


3499 






3500 






3501 






3502 


014414 


AC 

012777 


3503 


014422 


012703 


3504 


A4 ^ it 

014426 


012777 


3505 


014434 


A 1 AW^ 

010337 


WAf 

3506 


014440 


AAA^ii A 

000240 


W A^ 

3507 


AC M M 

014442 


AAAii AC 

000405 


3508 


014444 


AAC A^^ 

005077 


3509 


014450 


A£ t^Af 

062706 


W • A 

3510 


AC M MM M 

014454 


• Ail A V ^ 

104032 


3511 


014456 


162703 


3512 


014462 


A'>A V 

020327 


3513 


014466 


AA Ave^ 

002357 


3514 






3515 






3516 






3517 


014470 


012777 


3518 


014476 


012703 


3519 


014502 


012777 


3520 


014510 


010337 


3521 


014514 


000240 


3522 


014516 


000405 


3523 


014520 


005077 


3524 


014524 


062706 


3525 


014530 


104032 


3526 


014532 


162703 


3527 


014536 


020327 


3528 


014542 


002357 


3529 






3530 






3531 






3532 014544 


012777 


3533 


014552 


012703 


3534 


014556 


012777 



002502 
000340 
000340 



014402 
000021 



165602 
000004 



014444 
000340 
000011 
177776 



165540 
000004 

000040 
000300 



014520 
000340 
000005 
177776 



165464 
000004 

000040 
000240 



:*TEST 37 NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 

TST37: SCOPE 



177776 
165636 



165626 
165612 



165574 
165554 



165520 
165500 



165444 
165424 





JSR 


PC.IUBE 








i INITIALIZE THE UBE 




MOV 


#340, PSU 








; SET CPU PRIORITY AT 7 




nov 


«340,SBE1PSU 








; AT PRIORITY 7 


• 

s TRY 


TO 00 BR7 


WITH CPU PRIORITY 


AT 


7 






s 


MOV 


OIJ , aBElVEC 








J POINT UBE VECTOR TO PROGRAM 




MOV 


#21,9BE1CR1 








J BR7 UITH FUNG 




NOP 










; JUST IN CASE 




BR 


21 








J BRANCH AROUND IF NO INTERRUPT 


1$ : 


CLR 


SBEICRI 








( CLEAR ANY OTHER REQUESTS 




ADD 


#4,SP 








; ADJUST STACK POINTER 




ERROR 


♦ 32 








; BG7 GRANTED UITH CPU AT 7 


i TRY 


TO DO BR6 


UITH CPU PRIORITY 


AT 


7 


-6 




A A 

2% : 


MOV 


#4$ .aBElVEC 








; POINT UBE VECTOR TO PROGRAM 




MOV 


#340, R3 








; START UITH PRIORITY AT 7 


3* : 


MOV 


«11 . SBEICRI 








. BR6 UITH FUNO 




MOV 


R3.PSU 








. CHANGE PRIORITY 




NOP 










! . JUST IN CASE OF INTERRUPS 




on 

BR 


e A 

59 








i . IF NO INTERRUPS. BRANCH 


4$ : 


CLR 


vDclCRl 








i . CLEAR ANY OTHER REQUESTS 




ADO 


Jt.il f B 

»4,SP 








! . ADJUST STACK POINTER 




mo AO 
cKKOn 


♦ 32 








! . BG6 GRANTED UITH CPU AT 6-7 


Sf : 


t^i *o 

SUB 


#40 , R3 








! . LOUER PRIORITY 




CMP 


R3.#300 








! . LAST ONE TO CHECK? 




BGE 


3$ 








. IF NOT. BRANCH 


i TRY 


TO DO BR5 


UITH CPU PRIORITY 


AT 


7- 


•5 






MOV 


#71 .SBEIVEC 








POINT UBE VECTOR TO PROGRAM 




MOV 


JKT il a o t 

#340, R 3 








START UITH PRIORITY AT 7 




nu V 














MOV 


R3.PSW 








. CHANGE PRIORITY 




NOP 










. JUST IN CASE OF INTERRUPS 




BR 


84 








. IF NO INTERRUPS. BRANCH 


7#: 


CLR 


SBEICRI 








. CLEAR ANY OTHER REQUESTS 




ADD 


#4.SP 








. ADJUST STACK POINTER 




ERROR 


♦ 32 








. BG5 GRANTED UITH CPU AT 5-7 


8«: 


SUB 


#40. R3 








. LOUER PRIORITY 




CMP 


R3,#240 








. LAST ONE TO CHECK? 




BGE 


6t 








. IF NOT. BRANCH 


'i TRY 


TO DO BR4 


UITH CPU PRIORITY 


AT 


7- 


4 






MOV 


#10$,SBE1VEC 








POINT UBE VECTOR TO PROGRAM 




MOV 


#340. R3 








START UITH PRIORITY AT 7 


9$: 


MOV 


#3. SBEICRI 








. BR6 UITH FUNO 



H7 
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T37 NO BUS GRANTS UITH PROCESSOR AT HIGHER PRIORITY 



3535 


014564 


010337 


177776 




MOV 


R3,PSU 


3536 


014570 


000240 






NOP 




3537 


014572 


000405 






BR 


111 


3536 


014574 


005077 


165410 


10«: 


CLR 


9BE1CR1 


3539 


014600 


062706 


000004 




ADD 


«4.SP 


3540 


014604 


104032 






ERROR 


♦ 32 


3541 


014606 


162703 


000040 


111: 


SUB 


040. R3 


3542 


014612 


020327 


000200 




CMP 


R3.«200 


3543 


014616 


002357 






BGE 


91 



3544 
3545 



SEQ 0085 



CHANGE PRIORITY 

JUST IN CASE OF INTERRUPS 

IF NO INTERRUPS. BRANCH 

CLEAR ANY OTHER REQUESTS 

ADJUST STACK POINTER 

BG4 GRANTED UITH CPU AT 4-7 

LOWER PRIORITY 

LAST ONE TO CHECK? 

IF NOT, BRANCH 
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3547 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 

3550 

3559 

3560 

3561 

3562 

3563 

3564 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 
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SEQ 0086 



.SBTTL TEST - BR7-BR4 ARBITRATION 

THIS TEST CHECKS THAT BR7 BR4 INTERRUPTS CAN OCCUR WITH A PROCESSOR 
;• PRIORITY AT A LOWER LEVEL 

I BGNTST 

; SET UP 9BE1PSU TO #340 

;* TRY TO DO BR7 UITH CPU PRIORITY AT 6 - 0 

: DO FOR R3 FROM 0300 DOUNTO PO BY #40 

s LET PSU - 0340 

; . LET aBElCRl - 021 TO DO 1 DATI 

s LET PSW - R3 TO CHANGE PRIORITY 

DO "NOP" 

IF NO INTERRUPT THEN 
i . . ERROR BG7 DOESN'T OCCUR 

s . ENDIF 

: ENODO 
: * 

s* TRY TO DO BR6 UITH CPU PRIORITY AT 5 - 0 

; * 

i 00 FOR R3 FROM 0240 DOUNTO 00 BY 040 

; LET PSU - 0340 

: . LET aBElCRl - Oil TO 00 1 DATI 

: LET PSU « R3 TO CHANGE PRIORITY 

; DO "NOP" 

; . IF NO INTERUPT THEN 

: . . ERROR BG6 DOESN'T OCCUR 

: . ENDIF 

i ENOOO 

; * 

:* TRY TO 00 BR5 UITH CPU PRIORITY AT 4 - 0 
;* 

; 00 FOR R3 FROM 0200 DOUNTO 00 BY 040 

! LET PSW - 0340 

! . LET 96E1CR1 - 05 TO DO 1 DATI 

. LET PSW « R3 TO CHANGE PRIORITY 
i 00 "NOP" 

! . IF NO INTERRUPT THEN 

. . ERROR BG5 DOESN'T OCCUR 
I ENDIF 

ENOOO 

; * 

;* TRY TO 00 BR4 WITH CPU PRIORITY AT 3 - 0 
I * 

DO FOR R3 FROM 0140 DOUNTO 00 BY 040 
LET PSW - 0340 

LET 96E1CR1 « 03 TO DO 1 DATI 
. LET PSW > R3 TO CHANGE PRIORITY 

DO "NOP" 
. IF NO INTERRUPT THEN 
. . ERROR BG4 DOESN'T OCCUR 
. ENDIF 
ENODO 



KTJll B DIAGNOSTIC MACRO Y05.02 

TEST - BR7-BR4 ARBITRATION 

3604 
3605 
3606 
3607 
3608 
3609 



J7 
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SEQ 0087 



ENOTST 



3610 



014620 000004 



3611 014622 


004737 


002502 






JSR 


PC . lUBE 


3612 014626 


012777 


000340 


165364 




MOV 


«340.a6ElPSU 


3613 








s 




3614 








s TRY 


TO DO BR7 


WITH CPU PRIORITY 


3615 








; 






3616 014634 


012777 


014700 


165354 




MOV 


«2$.aBElVEC 


3617 014642 


012703 


000300 






MOV 


«300.R3 


3616 014646 


012737 


000340 


177776 


1«: 


MOV 


«340.PSU 


3619 014654 


012777 


000021 


165326 




MOV 


«21 . SBEICRI 


3620 014662 


010337 


177776 






MOV 


R3.PSU 


3621 014666 


000240 








NOP 




3622 014670 


005077 


165314 






CLP 


aBElCRl 


3623 014674 


104032 








ERROR 


<32 


3624 014676 


000402 








BR 


3) 


3625 014700 


062706 


000004 




2$: 


ADD 


«4,SP 


3626 014704 


162703 


000040 




3$: 


SUB 


«40.R3 


3627 014710 


022703 


000000 






CMP 


#0.R3 


3626 014714 


002354 








BGE 


1$ 


3629 








i 






3630 








! TRY 


TO DO BR6 


WITH CPU PRIORITY 


3631 








: 






3632 014716 


004737 


002502 






JSR 


PC.IUBE 


3633 014722 


012777 


014766 


165266 




MOV 


»5«.S0E1VEC 


3634 014730 


012703 


000240 






MOV 


#240. R3 


3635 014734 


012737 


000340 


177776 


41: 


MOV 


«340.PSU 


3636 014742 


012777 


000011 


165240 




MOV 


«ll.aeElCRl 


3637 014750 


010337 


177776 






MOV 


R3.PSU 


3636 014754 


000240 








NOP 




3639 014756 


005077 


165226 






CLR 


SBEICRI 


3640 014762 


104032 








ERROR 


♦ 32 


3641 014764 


000402 








BR 


6« 


3642 014766 


062706 


000004 




5«: 


ADD 


#4,SP 


3643 014772 


162703 


000040 




6«: 


SUB 


M0.R3 


3644 014776 


022703 


000000 






CMP 


<K>,R3 


3645 015002 


002354 








BGE 


4» 


3646 














3647 








I TRY 


TO 00 BR5 


WITH CPU PRIORITY 


3646 








» 






3649 015004 


004737 


002502 






JSR 


PC.IUBE 


3650 015010 


012777 


015054 


165200 




MOV 


«8I.96E1VEC 


3651 015016 


012703 


000200 






MOV 


«200.R3 


3652 015022 


012737 


000340 


177776 


7*: 


MOV 


«.40,PSU 


3653 015030 


012777 


000005 


165152 




MOV 


«5. SBEICRI 


3654 015036 


010337 


177776 






MOV 


R3.PSU 


3655 015042 


000240 








NOP 




3656 015044 


005077 


165140 






CLR 


SBEICRI 


3657 015050 


104032 








ERROR 


♦ 32 



;; *************************************************************** 

;*TEST 40 BR7-BR4 ARBITRATION 

i ; *************************************************************** 
TST40: SCOPE 

; INITIALIZE THE UBE 
! AT PRIORITY 7 



4-0 



POINT UBE VECTOR TO PROGRAM 

START WITH PRIORITY AT 6 

. RAISE PRIORITY TO 7 

. BR7 UITH FUNO 

. LOUER PRIORITY 

. JUST IN CASE OF INTERRUPS 

. CLEAR ANY OTHER REQUESTS 

. BR7 NOT GRANTED UITH CPU AT 6 0 

. DON'T ADJUST STACK IF NO INTERRUPT 

. ADJUST STACK POINTER 

, LOUER PRIORITY 

. LAST ONE TO CHECK? 

. IF NOT. BRANCH 



INITIALIZE THE UBE 

POINT UBE VECTOR TO PROGRAM 

START UITH PRIORITY AT 5 

. RAISE PRIORITY TO 7 

. BR6 UITH FUNO 

. LOUER PRIORITY 

. JUST IN CASE OF INTERRUPS 

. CLEAR ANY OTHER REQUESTS 

. BR6 NOT GRANTED UITH CPU AT 5-0 

. DON'T ADJUST STACK 

. ADJUST STACK POINTER 

. LOUER PRIORITY 

. LAST ONE TO CHECK? 

. IF NOT. BRANCH 



INITIALIZE THE UBE 

POINT UBE VECTOR TO PROGRAM 

START UITH PRIORITY AT 4 

. RAISE PRIORITY TO 7 

, BR5 UITH FUNO 

. LOUER PRIORITY 

. JUST IN CASE OF INTERRUPS 

. CLEAn ANY OTHER REQUESTS 

, BR5 NOT GRANTED UITH CPU AT 4-0 
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T40 BR7-BR4 ARBITRATION 



3658 


CI 5052 


000402 








BR 


91 


3659 


015054 


062706 


000004 




8$: 


ADO 


#4,SP 


3660 


01 5060 


162703 


000040 




91: 


SUB 


#40. R3 


3661 


015064 


022703 


000000 






CMP 


#0,R3 


3662 


015070 


002354 








BGE 


7* 


3663 










i 






3664 










; TRY 


TO 00 BR4 


UITH CPU PRIORITY 


3665 










f 






3666 


015072 


A Ail ^ V ^ 

004797 


A A C A 

002502 






JSR 


PC . lUBE 


3667 


015076 


f\ \ ^^^^ 
012777 


015142 


165112 




MOV 


i>ll< .SBEIVEC 


3668 


015104 


A 4 '^t A V 

012709 


AAA 4 il A 

000140 






MOV 


#140, R3 


3669 


015110 


A 4 O*?^ T 

012737 


AA A V A A 

000340 


177776 


101 : 


MOV 


0340. PSU 


3670 


OlSllo 


012777 


AAAAAV 

000003 


165064 




MOV 


^^BP4 Ana 

p3,SBE1CR1 


3671 


015124 


A 4 AV V ^ 

010337 


177776 






MOV 


R3,PSU 


3672 


At Kt VA 

015190 


AAA^il A 

000240 








NOP 




9673 


A 4 K 4 V ^ 

015132 


AAC A^ *t 

005077 


4 £ C AC ^ 

165052 






CLR 


3BE1CR1 


AO 


t\\ CI TJL 










coono 
CKKUK 


♦ J2 


3675 


015140 


000402 








BR 


121 


3676 


015142 


062706 


000004 




111: 


AGO 


#4.SP 


3677 


015146 


162703 


000040 




121: 


SUB 


#40. R3 


3678 


015152 


022703 


000000 






CMP 


«0.R3 


3679 


015156 


002354 








BGE 


10$ 


3660 
















3661 

















SEQ 0088 



. DON'T TOUCH STACK 
. ADJUST STACK POINTER 
. LOWER PRIORITY 
. LAST ONE TO CHECK? 
. IF NOT. BRANCH 



: INITIALIZE THE UBE 

; POINT UBE VECTOR TO PROGRAM 

; START UITH PRIORITY AT 3 

; . RAISE PRIORITY TO 7 

: . BR4 UITH FUNO 

: . LOUER PRIORITY 

i . JUST IN CASE OF INTERRUPS 

; . CLEAR ANY OTHER REQUESTS 

1 . BR4 NOT GRANTED UITH CPU AT 3 0 
! . DON'T ADJUST STACK 

2 . ADJUST STACK POINTER 
; . LOUER PRIORITY 

8 .LAST ONE TO CHECK? 

i . IF NOT. BRANCH 
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TEST ■ ARBITRATION BETWEEN INTERRUPTS AND PIRQ'S 



SGQ 0089 



3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

«695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 



3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 



015160 
015162 
015166 
015174 
015202 
015210 
015216 
015222 
015226 



015232 
015240 
015244 
015250 
015254 
015256 
015262 
015264 
015266 
015272 
015274 
015276 
015302 
015306 
015310 



000004 
004737 
012777 
012777 
012737 
012737 
012701 
012702 
012703 



012737 
010177 
010237 
010337 
000001 
062706 
104032 
000402 
062706 
006001 
006002 
162703 
022703 
001351 
005037 



.SBTTL TEST ARBITRATION BETUEEN INTERRUPTS AND PIRQ'S 

s* THIS TEST CHECKS THAT PIRQ REQUESTS OVERRIDE INTERRUPT REQUESTS 
{• OF THE SAME LEVEL. 

: SET UP aSElVEC AND PIRQVEC AND PRIORITY TOR BOTH 

t LET Rl - «20 FOR BG7 FROM UBE 

LET R2 - #100000 FOR PIRQ7 
00 FOR R3 FROM «300 DOUNTO 0140 BY »40 
LET PSU - #340 
J LET aSElCRl - Rl FOR INTERRUPT LEVEL 

LET aSElCRl - aSElCRl SET. BY 01 TO DO 1 DATI 
LET PIRQ - PIPQ SET. BY R2 FOR PIRQ LEVEL 
LET PSU - R3 TO CHANGE PRIORITY 
UAIT FOR INTERRUPT 

IF PIRQ INTERRUPT DIDN'T HAPPEN OR gOElCC NE 1 THEN 
. ERROR IN ARBITRATION BETUEEN PIRQ'S AND INTERRUPTS 
ENDIF 

LET Rl - Rl SHIFT RIGHT 1 
LET R2 - R2 SHIFT RIGHT 1 
ENDDO 

ENDTST 



002502 
015256 
000340 
015266 
000340 
000020 
100000 
000300 



000340 
164744 
177772 
177776 

000004 



000004 



000040 
000140 

177772 



165014 
165016 
000240 
000242 



2*TEST 41 ARBITRATION BETUEEN INTERRUPTS AND PIRQ'S 

TST41: SCOPE 

PC.IUBE 



JSR 

MOV «2I.8BE1CR1 

MOV «340.8BE1PSU 

MOV #3 I, PIRQVEC 

MOV «340,8»242 

MOV #20. Rl 

MOV #100000. R2 

MOV #300. R3 

DO ARBITRATION FOR LEVEL 7-4 



177776 1*! 



2(; 



3«: 
4»: 



MOV 

MOV 

MOV 

MOV 

UAIT 

ADD 

ERROR 

BR 

ADD 

ROR 

ROR 

SUB 

CMP 

BNE 

CLR 



#340. PSU 
Rl.SBElCRl 
R2,PIRQ 
R3.PSU 

«4,SP 

«32 

4> 

#4.SP 
Rl 

R2 

#40. R3 
#140. R3 
1> 

PIRQ 



! INITIALIZE THE 'JBE 
s POINT UBE VECTOR TO PROGRAM 
s AT PRIORITY 7 

{ POINT PIRQ VECTOR TO PROGRAM 
AT PRIORITY 7 
STORE FOR BR7 
STORE FOR PIRQ 7 
START UITH PRIORITY 6 



. START UITH PRIORITY 7 

. CHANGE UBE PRIORITY 

. CHANGE PIRQ PRIORITY 

. LOUER CPU PRIORITY 

. UAIT FOR INTERRUPT 

. CLEAN UP STACK 

. PIRQ'S DON'T TAKE PRIORITY 

. DON'T CLEAN UP STACK TUICE 

. CLEAN UP STACK 

. ADJUST BR FOR UBE 

. ADJUST PIRQ'S 

. LOUER FOR CPU PRIORITY 

. PRIORITY 37 

. BRANCH IF NOT YET 

CLEAR ANY REQUESTS 
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TEST • ARBITRATION BETWEEN INTERRUPT b ."ROM 2 USE 



SEQ 0090 



3737 


.5 


3738 




3739 




3740 




3741 




3742 


J* 


3743 


; 


3744 


\ 


3745 


\ 


m ^ M M. 

3746 


\ 


3747 


■ 


3745 


■ 


3749 


■ 


3750 


i 


3751 


f 


3752 


* 


3753 




3754 


• 


3755 


■ 


3756 


* 


3757 


• 


3758 


I 


3739 


» 


3760 


% 


3761 


f 




2 


3763 


t 


3764 


i 


3765 


I 


3766 


! -■ 


3767 




376S 




3769 


f f ' 



S6TTL TEST - ARBITRATION BETWEEN INTERRUPTS FROM 2 U6E 

THIS TEST CHECKS THAT WHEN TWO INTERRUPTS FROM DIFFERENT USE'S 
COME IN AT THE SAME TIME. THE BUS IS GRANTED TO THE REQUEST WITH HIGHER 
PRIORITY. 



BGNTST 



IF U6ECT NE «2 THEN THERE'S NO 2N0 U6E 

. EXIT TEST 

ENOIF 

SET UP VECTORS AND PSW FOR BOTH UBE'S 
LET Rl - #20 FOR BR7 

00 3 TIMES FOR BG7-BG6. BG6-BG5,BGS-BG4 
LET PSW - #340 FOR PRIORITY 7 
LET SBEICRI - Rl 
LET Rl - Rl SHIFT RIGHT 1 

LET aBE2CRl ■ Rl TO SET PRIORITY OF 2N0 U8E 
LET 8SIMLG0 - #1 TO DO SIMULTANEOUS "GO" 
LET PSW - #140 TO LOWER PRIORITY FOR INTERRUPTS 
WAIT FOR INTERRUPTS 

IF INTERRUPTS FROM 1ST HAPPENED AFTER 2ND THEN 

ERROR IN BR ARBITRATION 
Er«)IF 
ENODO 



ENOTST 



3770 
3771 
3772 
3773 
3774 
3775 
5776 
3777 
3778 
3779 
3760 
3781 
3762 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 



015314 000004 



015316 
015324 
015326 



015SS2 
015336 
015342 
015350 
015356 
015364 



015372 
015400 
01S404 
01S406 
015412 



022737 
001112 
004737 



012703 
012701 
012777 
012777 
012777 
012777 



012737 
010177 
006001 
010177 
052777 



000002 
002502 



000240 
00002 J 
015512 
000340 
015532 
000340 



000340 
164604 

164616 
000001 



»*TEST 42 

TST42: SCOPE 

001722 CMP 
BNE 
JSR 

I INITIAL SETUP 

MOV 
MOV 

164646 MOV 
164642 MOV 
164652 MOV 
164646 MOV 



ARBITRATION BETWEEN INTERRUPTS FROM 2 UBE 



«2.UBECT 

TST43 

PC.IUBE 



#240. R3 
#20. Rl 

«6ElSV.a6ElVEC 
«34O.0BE1PSW 
«6E2SV.SBE2VEC 
#340,SBE2PSW 



: 2 UBE'S? 
EXIT. IF NO 

: INITIALIZE THE UBE 



; START AT PRIORITY 6 

» UBE AT LEVEL 7 

: POINT UBEl VECTOR TO PROGRAM 

I AT PRIORITY 7 

: POINT UBE2 VECTOR TO PROGRAM 

; AT PRIORITY 7 



ARBITRATE BETWEEN 2 INTERRUPTS OF DIFFERENT LEVEL 



177776 1»: MOV #340. PSW 

MOV Rl.aSElCRl 

ROR Rl 

MOV R1,8BE2CR1 

164570 BIS «BITOO, SBEICRI 



RAISE PRIORITY TO 7 
HIGHER PRIORITY TO UBEl 
GET LOWER PRIORITY 
LOWER PRIORITY TO UBE2 
SET GO BIT OF UBE «1 
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T42 ARBITRATION BETWEEN INTERRUPTS FROM 2 UBE 



3791 015420 


052777 


000001 


164602 




BIS 


•6IT00.aBE2CRl 


3792 015426 


010337 


177776 






MOV 


R3,PSU 


3793 015432 


000240 








NOP 


3794 015434 


000240 








NOP 




3795 015436 


000240 








NOP 




3796 015440 


005737 


001724 






TST 


BEIINT 


3797 015444 


001002 








BNE 


SI 


3790 015446 


104032 








ERROR 


*32 


3799 015450 


000404 








BR 


101 


SSOO 015452 


005737 


001726 




St: 


TST 


BE2INT 


3S01 015456 


001401 








BEQ 


101 


3502 015460 


104032 








ERROR 


• 32 


3003 015462 


005037 


001724 




10(: 


CLR 


BEIINT 


3004 015466 


005037 


001726 






CLR 


BE2INT 


3005 015472 


162703 


000040 






SUB 


•40. R3 


3006 015476 


022703 


000100 






CMP 


•100, RS 


3007 015502 


001333 








BNE 


1( 


3000 015504 


005077 


164522 






CLR 


aBE2CLR 


3009 015510 


000420 








BR 


TST43 


3010 














3011 015512 


012777 


000000 


164510 


BEISV: 


MOV 


•0.S8E2CR1 


3012 015520 


005237 


001724 






INC 


BEIINT 


30^3 015524 


005037 


001726 






CLR 


BE2INT 


3014 015530 


000002 








RTI 




3015 














3016 015532 


012777 


000000 


164450 


BE2SV: 


MOV 


ffO.SBElCRl 


3017 015540 


005237 


001726 






INC 


BE2INT 


3010 015544 


005037 


001724 






CLR 


BEIINT 


3019 015550 


000002 








RTI 




3020 















SEQ 0091 



: . SET GO BIT OF USE •? 

} . LOWER CPU PRIORITY 

> . GIVE UBE TIME TO INTERRUPT 

> 

1 . DID UBEl INTERRUPT 

J . YES. THEN GO MAKE SURE U8E2 DIDN'T 

: . LOWER ORDER INTERRUPTS HAPPNE BEFORE 

: . GO SEE IF UE ARE DONE 

I . DID U6E2 INTERRUPT 

i . NO. THEN GO SEE IF WE ARE DONE 

: . YES. THEN ERROR IN ARBITRATION 

i . INITIALIZE INTERRUPT FLAGS 

\ . 00 THE NEXT LEVEL 

i . CPU AT 2 (LAST ONE)? 

. BRANCH IF NOT YET 

i CLEAR ERRORS ON 2N0 UBE 
GO TO NEXT TEST 

: CLEAR PENDING UBE 92 INTERRUPTS 

: SET BEl INTERRUPT FLAG 

t CLEAR BE2 INTERRUPT FLAG 



: CLEAR PENDING UBE •! INTERRUPTS 
i SET BE2 INTERRUPT FLAG 
: CLEAR BEl INTERRUPT FLAG 
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TEST . POWER OOUN TEST 



SEO 0092 



3822 

3823 

3824 

3825 

3826 

3827 

3828 

3829 

3830 

3831 

3832 

3833 

3834 

3835 

3836 

3837 

3838 

3839 

3840 

3841 

3842 

3843 

3844 

3845 

3846 

3847 

3848 



3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3860 
3S61 
3862 
3863 
3064 
3865 
3866 
3867 
3868 
3669 
3870 
3871 
3872 
3873 
3874 
3875 



015552 000004 



015554 
015560 
015562 
015570 
015572 
015600 
015602 
015610 
015612 
015620 
015626 
015634 
015636 
015644 
015646 



015652 
015660 
015666 
015674 
015702 
015704 



005737 
001076 
032737 
001072 
122737 
001466 
032737 
001062 
042737 
052737 
032737 
001450 
032737 
001444 
C04737 



013737 
012737 
013737 
052777 
000240 
000240 



001206 

000040 

000001 

000010 

000100 
000040 
000200 

000100 

002502 



000024 
015712 
000026 
000020 



000052 

001220 

177524 

177520 
177520 
165002 

165002 



001160 
000024 
000026 
164312 



.SBTTL TEST - POWER DOWN TEST 



J* 
s* 
I* 
t* 

t 

I 
t 
I 
I 
I 



THIS TEST INSURES THAT POWER DOWN CYCLE CAN BE INVOKED FROM THE 
UNIBUS SIDE OF UBA. IT WILL RUN ONLY IF POWER UP OPTION 11 
IS SELECTED (TRAP THRU 24/26) IN THE EAROH ON CPU BOARD. 



BGNTST 



LET BCSR<6.5>-<0.1> TO ACCESS EAROM 

IF 8«165002<7,6> NE <1.1> FOR POWER UP CODE 00 THEN 

. EXIT TEST 

ENDIF 

SAVE PWRVEC 

POINT PWRVEC TO PROGAM AREA 
LET aBElCR2<4> - »1 
IF NO TRAP TO 24 THEN 

ERROR EXECUTING POWER DOWN THRU UNIBUS 
ENDIF 

LET SBE1CR2<4> - «0 FOR POWER UP 
RESTORE PWRVEC 



ENDTST 



•TEST 43 

SCOPE 



POWER DOWN TEST 



TST43: 

I RESTRICTIONS ON RUNNING THIS TEST 



TST IPASS 

BNE TSTM 

BIT «BIT05.8*52 

BNE TST44 

CriPB «APTENV.IENV 

BEQ TST44 

BIT •BIT03.M177S24 

BNE TST44 

BIC •BIT06.BCSR 

BIS •BIT05.BCSR 

BIT •BIT07.M16S002 

BEQ TST44 

BIT «BIT06. 8*165002 

BEQ TST44 

JSR PC.IUBE 

DO POWER DOWN SEQUENCE 



NOV 
NOV 
MOV 
BIS 
NOP 
NOP 



PWRVEC. I THPO 
•II, PWRVEC 
PWRVEC*2.a«26 
«BIT04,SBE1CR2 



* FIRST "^ASS 
ttIF NOT 1ST PASS. DON'T 00 IT 

> UFO NODE? 
J J EXIT TEST. IF SO 

J APT? 
itEXIT TEST IF APT 

t FORCED CONSOLE HOOE? 
uIF YES, EXIT TEST 

t ENABLE ACCESS THRU 165000 

t READ EAROn 

t POWER UP CODE 00? 
jtEXIT TEST. IF NOT 

I POWER UP CODE 00? 
mEXIT TEST, IF NOT 

i INITIALIZE THE UBE 



STORE POWER DOWN VECTOR 
POINT NEW ONE TO PROGRAM 
AT PRIORITY 7 
START POWER DOWN 



WAIT WHAT HAPPENED 



C8 

KlJll-B DIAGNOSTIC MACRO Y05.02 Friday 29-Mar-85 12:53 Page 45 1 

T43 POUER OOUN TEST 



3876 015706 


104032 








ERROR 


♦ 32 


3877 015710 


000417 








BR 


lot 


3878 015712 


042777 


000020 


164274 


11: 


BIC 


»6IT04.9BE1CR2 


VA70 Om790 










Ann 


AA CD 


3880 015724 


012737 


015744 


000024 




MOV 


#3$.PWflVEC 


3881 015732 


012701 


177777 






MOV 


#177777. Rl 


3882 015736 


077101 






2«: 


SOB 


R1.2» 


3883 015740 


104032 








ERROR 


.32 


3884 015742 


000402 








BR 


10» 


3885 015744 


012706 


001100 




3»: 


MOV 


#1100. SP 


3886 015750 


013737 


001160 


000024 


101: 


MOV 


ITMPO.PWRVEC 



3887 



SEQ 0093 



: NO POUER OOUN FOR THRU UNIBUS 

i CLEAR POUER OOUN BIT 

i ADJUST STACK POINTER 

; POINT POUER UP VECTOR 

J TIMEOUT ROUTINE 

; UAIT A UHILE 

! NO POUER UP 

i ADJUST STACK 

: RESTORE POWER OOUN VECTOR 
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TEST . WRONG PARITY TEST 



SEQ 0094 



3889 

3890 

3891 

3892 

3893 

3894 

3895 

3896 

3897 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

S907 

3908 

3909 

3910 

3911 

3912 



3913 
3914 

3915 
3916 
3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 



015756 000004 



015760 
015764 
015770 
015776 
016004 
016012 
016020 
016026 
016032 
016034 
016036 
016044 



004737 
013701 
012737 
012737 
012777 
012777 
052777 
005777 
000240 
104032 
012777 
062706 



.SBTTL TEST URONG PARITY TEST 

* THIS TEST CHECKS THAT A URONG PARITY TRAP CAN BE GENERATED ON 

* DATI CYCLES. 
* 



BGNTST 



SAVE 114 WRONG PARITY VECTOR AND POINT IT TO PROGRAM AREA 

LET aBElCC - -1 TO DO 1 CYCLE 

LET aBElBA - #$TMPO FOR THE ADDRESS 

LET a6ElCR2 - a6ElCR2 SET. BY «BIT12 TO ENABLE URONG PARITY 
LET SBEICRI - #13041 TO DO 1 DATO FROM BEICC 
IF NO TRAP TO 114 THEN 

. ERROR GENERATING URONG PARITY TRAP THRU UNIBUS 
ENDIF 

LET SBE1CR2 - »0 TO CLEAR URONG PARITY BIT 
RESTORE VECTOR 114 



ENOTST 



:*TEST 44 URONG PARITY TEST 

TST44: SCOPE 



002502 
000114 
016036 
000340 
177777 
001160 
010000 
164156 



000000 
000004 



000114 
000116 
164172 
164166 
164166 



164150 II: 



JSR 


PC.IUBE I INITIALIZE THE UBE 


MOV 


8*114. Rl 


SAVE PARITY TRAP 


MOV 


«ll. 8*114 


POINT TO PROGRAM AREA 


MOV 


*340,8«116 


AT PRIORITY 7 


MOV 


*-i.aeEicc 


DO 1 CYCLE 


MOV 


**TMP0.9BE16A 


SETUP ADDRESS REGISTER 


BIS 


«6IT12.aBElCR2 


SET URONG PARITY BIT 


TST 


SBEICRI 


READ A UBE REGISTER 


NOP 




SHOULD CAUSE A PARITY TRAP 


ERROR 


♦ 32 


NO PARITY TRAP 


MOV 


*0.96E1CR2 


CLEAR URONG PARITY BIT 


ADD 


#4.SP 


ADJUST STACK POINTER 



E8 
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TEST - NO SACK TIMEOUT 



SEQ 0095 



392S 

3929 

3930 

3931 

3932 

3933 

3934 

3935 

3936 

3937 

393a 

3939 

3940 

3941 

3942 

3943 

3944 

3945 

3946 

3947 

394S 

3949 

3950 



3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 



016050 000004 



016052 
016056 
016064 
016070 
016076 
016102 
016104 
016110 
016112 
016114 
016122 



004737 
012^77 
005037 
012777 
012701 
077101 
105777 
100001 
104032 
012777 
012737 



•SBTTL TEST - NO SACK TIMEOUT 

J* THIS TEST INSURES THAT THE CPU TIMES OUT AND DROPS A GRANT IF NO 
t* SACK SIGNAL IS RECEIVED. IF THE CPU DOES NOT TIMEOUT. THE UBE 

• UILL TIME OUT AND SEND SACK TO PREVENT THE BUS FROM HANGING AND UILL SET 

* THE ERROR BIT IN CR2. 
• 



BGNTST 



LET SBEICC • -1 TO DO 1 TRANSFER 

LET a6ElCR2 - aBElCR2 SET. BY #BIT03 TO INHIBIT SACK 

LET aBElCRl - #6003 TO DO FUN 3 

UAIT FOR TIMEOUT OR SBEICC NE -1 

IF NO TIMEOUT AND aBElCR2 SET. BY #BIT07 THEN 

ERROR CPU FAILED TO DO NO SACK TIMEOUT 
ENDIF 



ENDTST 



; *************************************************************** 

•TEST 45 NO SACK TIMEOUT 

;*************************************************************** 

TST45: SCOPE 



002502 
000010 
177776 
006003 
007777 

164104 



000000 
000340 



164130 
164112 



1«: 



164072 2* : 
177776 



JSR 


PC.IUBE I INITIALIZE THE UBE 


MOV 


«BIT03.aBElCR2 


INHIBIT SACK BIT 


CLR 


PSU 


! LOUER PRIC .J.TY 


MOV 


•6003.8BE1CR1 


; GIVE UP BUS AFTER BECOMING MASTER 


MOV 


•7777. Rl 


DELAY CONSTANT 


SOB 


Rl.l* 


UAIT IN A LOOP 


TSTB 


nElCR2 


NO NO SACK TIMEOUT? 


BPL 


2» 


IF NO. BRANCH 


ERROR 


*32 


NO NO SACK TIMEOUT 


MOV 


»0.8BE1CR2 


CLEAR INHIBIT SACK BIT 


MOV 


«340.PSU 


RESTORE PRIORITY 



F8 
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TEST - NO INTERRUPT TEST 



SEO 0096 



3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 



.SBTTL TEST - NO INTERRUPT TEST 

* THIS TEST CHECKS THAT NO INTERRUPT CONDITION DOES NOT HANG THE BUS. 



BGNTST 



PROGRAM USE TO 00 DMA ON BR7 

IF CYCLE NOT DONE OR INTERRUPT THEN 

. ERROR IN NO INTERRUPT LOGIC 

ENDIF 



ENDTST 





016130 


000004 






TST46: 


SCOPE 




3981 
















3982 


016132 


004737 


002502 






JSR 


PC. TUBE 


3983 


016136 


012777 


177777 


164040 




MOV 


«-l,SBElCC 


3984 


016144 


012777 


001160 


164034 




MOV 


««TMPO.aBElBA 


3985 


016152 


012777 


016224 


164036 




MOV 


«10*.9BE1VEC 


3986 


016160 


012737 


000003 


177776 




MOV 


#3,PSU 


3987 


016166 


012777 


002021 


164014 




MOV 


«2021.aBElCRl 


3988 


016174 


105777 


164010 




11: 


TSTB 


9BE1CR1 


3989 


016200 


100375 








BPL 


1« 


3990 


016202 


012737 


000340 


177776 




MOV 


#340. PSU 


3991 


016210 


023777 


001160 


163764 




CMP 


HMPO.SBEIOB 


3992 


016216 


001404 








6EQ 


TST47 


3993 


016220 


104032 








ERROR 


♦ 32 


3994 


016222 


000402 








BR 


TST47 


3995 
















3996 


016224 


104032 






10$: 


ERROR 


♦ 32 


3997 


016226 


000002 








RTI 





oTEST 46 PASSIVE RELEASE 



: INITIALISE UBE 

; DO 1 CYCLE 

5 AT ADDRESS »TMP0 

; POINT VECTOR 

; LOUER PRIORITY TO 3 

; BR7. DATI 

•. DONE? 

; IF NOT. WAIT 

5 RESTORE PRIORITY 

5 DATA OK? 
IF OK, EXIT TEST 

i DATI ON BR7 IS URONG 
GO TO NEXT TEST 



i NO INTERRUPT LOGIC IS URONG 



3998 



G8 
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TEST - UNIBUS DEVICE DATO CYCLE 



SEQ 0097 



4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 



.SBTTL TEST - UNIBUS DEVICE DATO CYCLE 

i* THE FOLLOUING TEST UILL SEE IF A UNIBUS DEVICE DATA OUT 
:* CAN OCCUR ON THE KTJll-B MODULE. THE UNIBUS DATA PATH 
:* ON THE BOARD IS ALSO TESTED OUT. 
• 

BGNTST 

DISABLE UNIBUS MAPPING 

LET RO :« POINTER TO WRITE BUFFER 

LET Rl POINTER TO PATTERN TABLE 

* 

* GO DO THE TRANSFERS 

DO FOR PATTERNS 377.7417.31463,52525.125252 



LET BEIDB 
LET BEIBA 
LET BEICC 



(Rl)^ 
(RO)* 
-1 



SET UBE FOR NPR-DATO-1 XFER 
SET OFF THE TRANSFER 



DATA IS CURRENT PATTERN 

ADDRESS IS CURRENT ADDRESS OF URITE BUFFER 
SET UBE FOR 1 DATA XFER 



ENDDO 
LET RO 
LET Rl 



POINTER TO URITE BUFFER 
POINTER TO PATTERN TABLE 



♦ CHECK IF THE TRANSFERS WERE CORRECT 
* 

DO UNTIL TABLE IS COMPLETE 
IF (RO)* NEQ (Rl)* THEN 
. . ERROR DATO DID NOT OCCUR CORRECTLY 
. ENDIF 
ENDDO 

ENDTST 



4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 



016230 000004 



016232 004737 002502 



016236 042737 000040 172516 
016244 012700 001734 
016250 012701 001774 



016254 012737 000002 177730 



j*TEST 47 UNIBUS DEVICE DATO CYCLE TEST 

; t *************************************************************** 

TST47 : SCOPE 



JSR PC.IUBE : INITIALIZE THE UBE 

INITIALIZE POINTERS FOR THE TRANSFERS 



BIC 
MOV 
MOV 



#BIT5,MMR3 
OURTBUF.RO 
«PTRN16.R1 



MAKE SURE UNIBUS MAPPING IS DISABLED 
POINTER TO WRITE BUFFER 
POINTER TO PATTERN TABLE 



EXECUTE THE LOOP TO DO THE TRANSFERS 



MOV 



«BIT01.DCSR 



: SELECT UNIBUS LINES 



H8 
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T47 UNIBUS DEVICE DATO CYCLE TEST 



4054 


016262 


012704 


000005 






MOV 


05. R4 


4055 


016266 


012177 


163710 




1*: 


MOV 


(R1)*,3BE10B 


4056 


016272 


010077 


163710 






MOV 


RO.SBEIBA 


4057 


016276 


005077 


163712 






CLR 


96E1CR2 


4050 


016302 


012777 


177777 


163674 




MOV 


0 1. .asEicc 


4059 


016310 


012777 


003041 


163672 




MOV 


03041.SBE1CR1 


4060 














4061 










s 






4062 










: WAIT 


FOR THE 


TRANSFER TO BE 


4063 










t 






4064 
















4065 


016316 


032777 


000200 


163664 


5»: 


BIT 


«BIT7,aBElCRl 


4066 


016324 


001774 








BEQ 


5* 


4067 


016326 


005737 


177732 






TST 


DOR 


4060 


016332 


001415 








BEQ 


74 


4069 


016334 


022704 


000C03 






CMP 


«3.R4 


4070 


016340 


001004 








BNE 


64 


4071 


016342 


032737 


000373 


177732 




BIT 


0373.00R 


4072 


016350 


001406 








BEQ 


74 


4073 


016352 


013737 


177732 


001126 


6$: 


MOV 


DDR,4BDDAT 


4074 


0*6360 


005037 


001124 






CLR 


4GDDAT 


4075 


016364 


104016 








ERROR 


«16 


4076 


01636'j 


062737 


000002 


177730 


7*: 


ADD 


»BIT01.DCSR 


4077 


016374 


032737 


000006 


177730 




BIT 


»6,DCSR 


4076 


016402 


001003 








BNE 


84 


4079 


016404 


012737 


000002 


177730 




MOV 


«BIT01.DCSR 


4080 


016412 


062700 


000002 




8«: 


ADD 


»2.R0 


4081 


016416 


077455 








SOB 


R4.14 


4082 
















4083 










; 






4084 










: CHECK 


IF THE 


TRANSFERS UERE 


4085 










i 






4086 
















4087 


016420 


012700 


001734 






MOV 


OURTBUF.RO 


4008 


016424 


012701 


001774 






MOV 


#PTRN16.R1 


4089 


016430 


012704 


000005 






MOV 


#5,R4 


4090 


016434 


022021 






101: 


CMP 


(R0)*.(R1)* 


4091 


016436 


001401 








BEQ 


154 


4092 


016440 


104032 








ERROR 


♦ 32 


4093 


016442 


077404 






15$: 


SOB 


R4.104 


4094 
















4095 
















4096 

















SET UP LOOP COUNT 

. GET CURRENT DATA 

. GET ADDRESS IN THE WRITE BUFFER 

. CLEAR ADDRESS BITS 16,17 

. SET UBE FOR 1 DATA TRANSFER 

. SET UBE FOR NPR DATO-1 XFER 



1PLETE 



. IS THE TRANSFER COMPLETE 7 

. NO. THEN GO WAIT FOR IT 

. UNIBUS LINES 0? 

. IF SO. BRANCH 

. SELECTING CONTROL LINES 

. IF NOT. BRANCH 

. ONLY USED LINES O'S? 

. IF SO. BRANCH 

. RECIEVED DATA 

. EXPECTED DATA 

. ERROR IN UNIBUS LINES 

. THRU ALL COMBINATIONS 

. ALL DONE? 

. IF NOT, BRANCH 

. OTHERWISE, START OVER 

. GET THE NEXT ADDRESS TO TRANSFER TO 

HAVE UE GONE THROUGH THE TABLE ? 



1PLETED CORRECTLY 



POINTER TO WRITE BUFFER 

POINTER TO PATTERN TABLE 

SET UP LOOP COUNT 

. WAS THE TRANSFER CORRECT ? 

. YES. THEN SKIP THE ERROR MESSAGE 

. NO. THEN ERROR IN THE TRANSFER 

. HAVE UE CHECKED ALL 5 XFERS ? 



18 
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TEST - UNIBUS DEVICE DATI CYCLE 



SEQ 0099 



4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

4129 



.SBTTL TEST - UNIBUS DEVICE DATI CYCLE 

i* THIS TEST WILL SEE IF THE KTJll-B MODULE CAN EXECUTE A 
:* UNIBUS DEVICE DATI CYCLE. THE UNIBUS ADDRESS PATH ON THE 
I* MODULE IS ALSO TESTED OUT. 
* 

BGNTST 



INITIALIZE THE POINTERS FOR THE TRANSFERS 

DISABLE UNIBUS MAPPING 

LET RO :- POINTER TO 16 BIT PATTERNS 

LET Rl :- (RO) :CURRENT PATTERN 

GO DO THE TRANSFER THEN CHECK IF IT OCCURED CORRECTLY 



LET BEIDB 
LET BEIBA 
LET BEICC 



0 

RO 
-1 



SETUP UBE TO 00 NPR-DATI-1 
SET OFF THE TRANSFER 
IF BEIDB NEQ *377 THEN 

ERROR DATA READ IN UAS INCORRECT 
ENDIF 



CLEAR DATA BUFFER 
READ FROM DATA PATTERN 
1 DATA XFER 
DATA XFER 



ENDTST 



4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4148 
4149 
4150 
4151 



016444 000004 



:«TEST 50 UNIBUS DEVICE DATI CYCLE TEST 

TST50: SCOPE 



016446 
016452 



016460 
016464 



016466 
016472 
016476 

016502 
016510 



004737 
042737 



012700 
011001 



005077 
010077 
005077 
012777 
012777 



002502 

000040 172516 



001774 



JSR 
BIC 



PC.IUBE 
#BIT5.MMR3 



: INITIALIZE THE UBE 
DISABLE UNIBUS MAPPING 



INITIALIZE POINTERS FOR THE TRANSFERS 



MOV 
MOV 



tfPTRN16.R0 
(RO).Rl 



163510 
163510 
163512 

177777 163474 
002041 163472 



GO DO THE TRANSFER 



5«: CLR SBEIDB 

MOV R0.9BE1BA 

CLR 9BE1CR2 

MOV # I.SIBEICC 

MOV »2041.aBElCRl 



GET POINTER TO PATTERN TABLE 
GET CURRENT PATTERN 



INITIALIZE THE DATA BUFFER 
GET ADDRESS UE WANT TO READ 
CLEAR ADDRESS BITS 16.17 
SET UBE FOR 1 TRANSFER 
SET UBE FOR NPR-DATI-1 XFER 



J8 
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T50 UNI8US DEVICE DATI CYCLE TEST 

: UAIT FOR THE TRANSFER TO COMPLETE 

i 

63464 10* : BIT <>BIT7.S«E1CR1 ; . 

BEQ 10$ : . 



SEQ 0100 



4 ISP 








~ ^ 1^ 








4154 








4155 


016516 


032777 

Vv/S Iff 


000200 


4156 


0165P4 


00177* 




4157 








4156 








4159 








4160 








4161 








4162 


016526 


027710 


163450 


4163 


016532 


001401 




4164 


016534 


104032 




4165 


016536 


005720 




4166 


016540 


001352 




4167 








4168 








4169 









CHECK THE TRANSFER 



18(: 



CMP 

BEQ 

ERROR 

TST 

BNE 



SBEIDB.CRO) 

ISI 

♦ 32 

(RO)* 

5* 



IS THE TRANSFER COMPLETE 7 
UAIT FOR IT TO BE COMPLETE 



UAS THE TRANSFER CORRECT 7 
YES. THEN GO TO THE NEXT TEST 
NO, THEN ERROR IN THE TRANSFER 
DONE WITH PATTERNS? 
LOOP TILL DONE 



I<8 
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TEST - UNIBUS DEVICE OATO CYCLE WITH RELOCATION ENABLED 



SEQ 0101 



4171 

4172 

4173 

4174 

4175 

4176 

4177 

4178 

4179 

4180 

4181 

4182 

4183 

4184 

4185 

4186 

4187 

4188 

4189 

4190 

4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 

4205 

4206 

4207 



.SBTTL TEST - UNIBUS DEVICE DATO CYCLE UITH RELOCATION ENABLED 

THIS TEST WILL SEE IF THE KTJll B MODULE CAN EXECUTE 
:* A UNIBUS DEVICE DATO CYCLE THROUGH THE UNIBUS MAP. 
s* 



* 



BGNTST 

IF ALL UNIBUS MEMORY THEN GO TO END 0^ PASS 
SET UP UBE AND UNIBUS MAP REGISTERS FOR TRANSFER 



J* 
* 



LET BEIBA :« 0 ; POINT TO UMRO 

LET BEIOB :- 125252 ;DATA PATTERN IS 125252 

LET BEICC :• -8. ;D0 8 XFERS 

SET UBE TO DO NPR-OATO-2 DATA XFERS 

LET MAPLOO ADDRESS OF WRITE BUFFER 

LET MAPHOO :- 0 

GO DO THE TRANSFER 

SET OFF TRANSFER 

WAIT TILL XFER IS DONE 

CHECK IF THE TRANSFER OCCURED CORRECTLY 

LET RO POINTER TO WRITE BUFFER 
DO FOR Rl :- 1 TO 8 

IF (P0)» NEQ #125252 THEN 
. . ERROR DATO DID NOT EXECUTE CORRECTLY 

ENDIF 
ENODO 



ENDTST 



4206 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 



016542 000004 



:*TEST 51 UNIBUS DEVICE DATO CYCLE UITH RELOCATION ENABLED 

• :**********************************************«**************** 

TST51 : SCOPE 



016544 

016550 
016554 
016560 
916562 
016566 
016572 



016576 
016602 
016606 
016612 



013701 
042701 
022701 
001002 
000137 
004737 
012702 



177734 
177700 
00007-' 

023122 
002502 
001774 



1$: 



MOV 
BIC 
CMP 
BNE 
JMP 
JSR 
MOV 



KMCR.Rl 
#177700. Rl 
#77. Rl 
II 

UBEM 

PC.IUBE 

«PTRN16.R2 



STORE KMCR 

LEAVE ONLY BITS <5-0> 
ALL UNIBUS MEMORY? 
IF NOT. BRANCH 

IF ALL UNIBUS. SKIP TILL END OF PASS 
INITIALIZE THE UBE 
TEST PATTERN ADDRESS 



SET UP UBE AND UNIBUS MAP REGISTERS FOR TRANSFER 



005077 163404 

005077 163406 

011277 163370 

012777 177770 163364 



2$. 



CLR 
CLR 
MOV 
MOV 



aOElBA 

a6ElCR2 

(R2),96E1DB 

0-8. .asEicc 



POINT UBE ADDRESS TO UNIBUS MAP 
REGISTER #0 
DATA PATTERN 
DO 8. TRANSFERS 



L3 



KTJll B DIAGNOSTIC MACRO Y05.02 Friday 29-M«p-85 12:53 Page 51 1 

T51 UNIBUS DEVICE OATO CYCLE WITH RELOCATION ENABLED 



SEQ 0102 



4225 

4226 

4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 



016620 
016626 
016632 



016640 
016646 
016654 



016656 
016664 
016670 
016674 
016676 
016700 
016702 
016704 
016706 



0J2737 
005037 
052737 



012777 
032777 
001774 



042737 
012700 
012701 
022012 
001401 
104032 
077104 
005722 
001333 



001734 
170202 
000040 



003041 
000200 



170200 
172516 



163342 
163334 



MOV «URTBUF,MAPLOO 
CLR MAPHOO 
BIS «BIT5,MHR3 



GO 00 THE TRANSFER 



MOV 03041, SBEICRI 
10»: BIT «6IT7,a6ElCRl 
BEO 101 



SET UP LOU MAP REGISTER 
SET UP HIGH MAP REGISTER 
ENABLE UNIBUS MAPPING 



DO A NPR-DATO-1 XFER 

IS THE TRANSFER COMPLETE 

WAIT FOR IT TO COMPLETE 



CHECK IF THE TRANSFER OCCUREO CORRECTLY 



000040 
001734 
000010 



172516 



151: 
20i: 



BIC 

MOV 

MOV 

CMP 

BEO 

ERROR 

SOB 

TST 

BNE 



OBITS, MMR3 

OURTBUF,RO 

08. .Rl 

(R0)*.(R2) 

201 

♦ 32 

Rl,15$ 

(R2)» 

21 



DISABLE UNIBUS MAPPING 

GET POINTER TO URITE BUFFER 

SET UP LOOP COUNTER 

. SEE IF TRANSFER OCCURED CORRECTLY 

, YES. THEN SKIP ERROR MESSAGE 

. NO, THEN ERROR IN TRANSFER 

. HAVE WE CHECKED ALL THE TRANSFERS 

GET NEXT PATTERN 

LOOP TILL DONE 



M8 
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TEST - UNIBUS DEVICE DATI CYCLE WITH RELOCATION ENABLED 



SEQ 0103 



4252 


.SBTTL TEST - UNIBUS DEVICE DATI CYCLE UITH RELOCATION ENABLED 


4253 






4254 


!* 


THIS TEST WILL SEE IF THE KTJll-B MODULE CAN EXECUTE 


4255 


;• 


A UNIBUS DEVICE DATI CYCLE THROUGH THE UNIBUS MAP UITH 


4256 


!* 


CACHE DISABLED. 


4257 


8* 




4256 


t 




4259 


} 


BGNTST 


4260 


; 




4261 


;* 






; * 


SET UP THE UBE FOR A DATI CYCLE 


4263 


; • 




4264 


f 


LET BEIBA 0 {POINT ADDRESS TO MAPXOO 


4265 




LET BE1CR2 :■ 0 i 


4266 


• 


LET BEIOB :■ 0 {INITIALIZE DATA BUFFER 


4267 


• 


LET BEICC -1 sSET FOR 1 XFEh 




t 


SET UBE FOR A NPR-DATI-1 XFE"? 




; * 




4270 


: * 


SET UP THE MAP REGISTER FOR THE TRANSFER 


4271 


; * 




4272 


• 


LET nAPLOO KO ;rUINT UTIR 00 TO DATA PATTERN 






LET MAPHOO 0 




• 


ENABLE UNIBUS MAPPING 


4275 


J* 




4276 


J* 


MM MM 1^ VMAKIM^^M 

GO DO THE TRANSFER 


4277 


S* 




4278 


i 


bt 1 Urr IMt IKMNsrtK 




• 


MHl 1 rUK IKHNsrcK lU LUnrLklc 


4280 


t 


(/15AdLc IWIdUs nHPPlNb 


4281 


; * 




4cOc 


»* 


CntLK Ir inC INHNSrCK ULLUHCU LUNKCLILT 


4<C09 


;* 




#28* 


t 




*<85 


« 


. ERROR DATI THROUGH UNIBUS MAP DID NOT EXECUTE CORRECTLY 


A SUA 




ENDIF 


4287 


* 




4208 


• 


ENDTST 


4289 


t 




4290 






: - - 




4291 






4292 






4293 


1 ftt************************************************************* 



4294 
4295 
4296 
4297 
4298 
4299 
4300 
4301 
4302 
4303 
4304 
4305 



016710 
016712 



016716 
016722 
016726 
016732 
016736 



000004 
004737 



012700 
005077 
005077 
005077 
012777 



002502 



001774 
163260 
163262 
163244 
177777 



:*TEST 52 UNIBUS DEVICE DATI CYCLE UITH RELOCATION ENABLED 

TST52: SCOPE 



JSR 



PC.IUBE 



INITIALIZE THE UBE 



SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 



11: 



163240 



MOV 
CLR 
CLR 
CLR 
MOV 



«PTRN16.R0 

SBEIBA 

aBElCR2 

SBEIDB 

«-l.SBElCC 



PATTERN AREA 

POINT UBE TO THE FIRST UNIBUS MAP 
REGISTER 

INITIALIZE THE DATA BUFFER 
SET FOR 1 TRANSFER 



N8 
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T52 UNIBUS DEVICE DATI CYCLE UITH RELOCATION ENABLED 



4306 

4307 

4306 

4309 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 



016744 

0167S0 
016754 



016762 
016770 
016776 
017000 



017006 
017012 
017014 
017016 
017020 



010037 
005037 
052737 



012777 
032777 
001774 
042737 



027710 
001401 
104032 
005720 
001340 



170200 
170202 

000040 172516 



002041 163220 
000200 163212 

000040 172516 



MOV RO.MAPLOO 
CLR HAPHOO 
BIS *6IT5.nnR3 



GO DO THE TRANSFER 



MOV <>2041.S6E1CR1 

5»: BIT #BIT7.seElCRl 

BEQ SI 

BIC MIT5.90HHR3 



CHECK THE TRANSFER 



163170 



101 1 



CMP 

BEQ 

ERROR 

TST 

BNE 



88E1DB,(R0} 

101 

*32 

(RO)* 

II 



POINT MAP REGISTERS TO PATTERN TABLE 
ENABLE UNIBUS MAPPING 



SET USE FOR NPR-OATI-1 XFER 

IS THE TRANSFER COMPLETE 

NO, THEN WAIT FOR IT TO BE COMPLETE 

YES, THEN DISABLE UNIBUS 1APPING 



DID THE TRANSFER HAPPEN CORRECTLY ? 
YES 

TRANSFER DID NOT OCCUR CORRECTLY 
ALL DONE? 
LOOP TILL DONE 



B9 
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TEST - ALU TEST USING U8E 





.SBTTL 


TEST - ALU TEST USING UBE 




4 J J J 












I* 


THIS TEST UILL CHECK THE FIRST 3 


ALU'S EACH ONE AT A TIME. Af FIRST THE 




s* 


PATTERN THAT DOES NOT RESULT IN OVERFLOU UILL BE USED. THE SECOND PATTERN 




I* 


GENERATES OVERFLOW INTO THE NEXT 


ALU. 


^ ' 


I* 








^ J JO 


t 










> 


BGNTST 






i 










i 




IN 18-BIT nOOE DON'T RUN THIS TEST 




1 




LET Rl :- 1001 (PATTERN UITHOUT OVERFLOU FROM ALU) 




1 




LET R2 :- 0101 (HAP REGISTER PATTERN) 


^^^^ 


i 




LET R3 :- fnAPLOO 






! 




LET R4 :- 0110 (OVERFLOU) 






> 




LET R5 :- 1011 




4147 


i 




DO FOR 3 PATTERNS 




41411 






. LET BEIBA :- Rl 


{POINT ADDRESS TO MAPXOO 








. LET BE1CR2 0 




4 ISO 






. LET BE1D6 :- 0 


ilNITIALIZ: DATA BUFFER 




i 




. LET BEICC :• -1 


sSET FOR 1 XFER 








. SET UBE FOR A NPR-DATI-1 


XFER 


~ J J <J 


1 ^ 








43S4 




SET UP THE HAP REGISTER FOR THE 


TRANSFER UITHOtT OVERFLOU FROM ALU 


















. LET CR3) R2 


i POINT UMR 00 TO DATA PATTERN 








. LET 2(R3) :• 0 




41SII 






. ENABLE UNIBUS HAPPING 




~ J J y 














GO 


00 THE TRANSFER 




















SET OFF THE TRANSFER 










. WAIT FOR TRANSFER TO COMPLETE 








. DISABLE UNIBUS HAPPING 






I* 








AIM 




CHECK IF THE TRANSFER OOCURED CORRECTLY 




* 








^ JOO 






. IF BEIOB h€Q (R1*R2) THEN 








. . ERROR DATI THROUGH UNIBUS HAP DID NOT EXECUTE CORRECTLY 


^ J • w 






. ENDIF 




^ J • i 








^ J • c 


* 


NOU 


CHECK CARRY OUT FROM ALU 






• 














. LET BEIBA :- R4 


; POINT ADDRESS TO MAPXOO 


4375 






. LET BE1CR2 0 




4376 






LET BEIOB :- 0 


i INITIALIZE DATA BUFFER 


437 7 






. LET BEICC -1 


iSET FOR 1 XFER 


4378 






SET UBE FOR A NPR-DATI-1 


XFER 


• 379 


* 








4380 


* 


SET 


UP THE MAP REGISTER FOR THE 


TRANSFER 


4381 


* 








4382 t 




. LET (R3) :- R5 


jOOINT UMR #0 TO DATA PATTERN 


4383 






. LET 2(R3) :■ 0 




4384 






ENABLE UNIBUS MAPPING 




4385 


* 








4386 


* 


GO 


DO THE TRANSFER 




4387 5 


* 








4388 : 






SET OFF THE TRANSFER 
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TEST - ALU TEST USING USE 



SEQ 0106 



4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 

4398 

4399 

4400 

4401 

4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 



017022 000004 



4410 

4411 

4412 

4413 

4414 

4415 

4416 

4417 

4418 

4419 

4420 

4421 

4422 

4423 

4424 

4425 

4426 

4427 

4428 

4429 

4430 

4431 

4432 

4433 

4434 

4435 

4436 

4437 

4438 

4439 

4440 

4441 

4442 



017024 
017032 
017034 
017040 
017044 
017050 
017054 
017060 
017064 
017070 
017074 



017100 
017104 
017110 
017114 
017122 
017124 
017130 



017136 
017144 
017152 
017154 



032737 
001402 
000137 
005037 
004737 
012700 
012701 
012703 
012704 
012705 
005037 



010077 
005077 
005077 
012777 
010113 
005063 
052737 



i 

!• 

t 

; 
i 



. WAIT FOR TRANSFER TO COMPLETE 
. DISABLE UNIBUS MAPPING 

CHECK IF THE TRANSFER OCCURED CORRECTLY 

IF BEIDB NEQ (R4*R5) THEN 
. . ERROR DATI THROUGH UNIBUS MAP DID NOT EXECUTE CORRECTLY 
. ENDIF 

CHANGE THE PATTERN 

. SHIFT R1.R2.R4,R5 4 TIMES AND POINT TO MAPL03 AND MAPL06 

. POINT R3 TO MAPL03 AND THEN TO MAPL06 

ENDDO 

ENDTST 



000040 177734 

017452 
172354 
002502 
000022 
000012 
170200 
000014 
000026 
001162 



5*TEST 53 ALU TEST USING UBE 

TST53: SCOPE 



101: 



BIT 


»6IT05.KMCR 




18 BIT MODE? 


BEQ 


101 




IF NOT. CONTINUE 


JMP 


201 




OTHERWISE, EXIT 


CLR 


KIPAR6 




FOR ERROR REPORTING 


JSR 


PC.IUBE 




INITIALIZE THE UBE 


MOV 


022. RO 




INITIAL PATTERN FOR ADDRESS LINES 


MOV 


•12. Rl 


i 


INITIAL PATTERN FOR MAP REGISTER 


MOV 


«MAPL00.R3 


> 


FIRST REGISTER PAIR TO BE USED 


MOV 


014 , R4 


> 


PATTERN FOR THE OVERFLOU FOR A. LINES 


MOV 


026. R5 


• 


PATTERN FOR MAP PAIR 


CLR 


♦ TMPl 




LOCATION TO SELECT REGISTER PAIR 



SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 



163102 
163104 
163066 
177777 

000002 
000040 



163062 
172516 



MOV 
CLR 
CLR 
MOV 
MOV 
CLR 
BIS 



R0.8BE1BA 

8BE1CR2 

SBEIDB 

«-l.SBElCC 

R1.(R3) 

2(R3) 

#BIT5.MMR3 



GO 00 THE TRANSFER 



012777 002041 

032777 000200 
001774 

042737 000040 



163044 MOV «2041.aBElCRl 

163036 2«: BIT «BIT7.aBElCRl 

BEQ 2« 

172516 BIC «BIT5.S«MMR3 



POINT UBE TO THE PATTERN 
REGISTER 

INITIALIZE THE DATA BUFFER 
SET FOR 1 TRANSFER 
POINT MAP REGISTERS TO PATTERN 
CLEAR HIGH MAP REGISTER 
ENABLE UNIBUS MAPPING 



SET UBE FOR NPR-DATI-1 XFER 

IS THE TRANSFER COMPLETE 

NO. THEN UAIT FOR IT TO BE COMPLETE 

YES. THEN DISABLE UNIBUS MAPPING 



D9 
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T53 ALU TEST USING UBE 



4443 














4444 










CHECK THE 


TRANSFER 


4445 














4446 














4447 017162 


010037 


001160 






MOV 


RO.ITMPO 


4446 017166 


042737 


160000 


001160 




BIC 


#160000.1 TMPC 


4449 017174 


060137 


001160 






ADD 


RI.ITMPO 


4450 017200 


027777 


162776 


161752 




CMP 


aBElOS.SITMPO 


4451 017206 


001412 








BEQ 


31 


4452 017210 


017737 


162766 


001126 




MOV 


SBEIOB.IBDDAT 


4453 017216 


017737 


161736 


001124 




MOV 


aiTMPO.IGDDAT 


4454 017224 


013737 


001160 


001122 




MOV 


ITMPO.tBDADR 


4455 017232 


104023 








ERROR •23 


4456 








s 






4457 








( 


NOU CHECK 


THE SAME ALU FOR 1 


4458 








1 




4459 017234 


010477 


162746 




3< 




R4.9BE1BA 


4460 017240 


005077 


162750 






CLR 


g6ElCR2 


4461 017244 


005077 


162732 






CLR 


9BE10B 


4462 017250 


012777 


177777 


162726 




MOV 


#-l.SBElCC 


4463 017256 


010513 








MOV 


R5,(R3) 


4464 017260 


005063 


000002 






CLR 


2(R3) 


4465 017264 


052737 


000040 


172516 




BIS 


46IT5.MMR3 


4466 














4467 








• 






4468 








• 


GO DO THE 


TRANSFER 


4469 

4470 








J 






4471 017272 


012"'77 


002041 


162710 




MOV 


#2041.aBElCRl 


4472 017300 


032777 


000200 


162702 


41 


BIT 


4BIT7.S6E1CR1 


4473 017306 


001774 








BEQ 


4$ 


4474 017310 


042737 


000040 


172516 




BIC 


«6IT5.8»MMR3 


4475 














4476 














4477 










CHECK THE 


TRANSFER 


4478 














4479 














4480 017316 


010437 


001160 






MOV 


R4.ITMP0 


4481 017322 


042737 


160000 


001160 




BIC 


#160000. ♦ TMPC 


4482 017330 


060537 


001160 






ADD 


R5.*TMP0 


4483 017334 


027777 


162642 


161616 




CMP 


aSElDB.atTMPO 


4484 017342 


001412 








BEQ 


51 


4485 017344 


017737 


162632 


001126 




MOV 


aBElOB.tBODAT 


4486 017352 


017737 


161602 


001124 




MOV 


aiTMPO.IGOOAT 


4487 017360 


013737 


001160 


001122 




MOV 


«TMP0.IB0ADR 


4488 017366 


104023 








ERROR *23 


4489 














4490 










CHANGE THE 


PATTERN 


4491 














4492 017370 


022737 


002000 


001720 


5$ 


CMP 


#2000. PMIS 


4493 017376 


103025 








BHIS 


TST54 


4494 017400 


072027 


000004 






ASH 


«4.R0 


4495 017404 


072127 


000004 






ASH 


#4.R1 


4496 017410 


072427 


000004 






ASH 


#4,R4 


4497 017414 


072527 


000004 






ASH 


#4.R5 


4498 017420 


062703 


000014 






ADO 


#12. .R3 


4499 017424 


062737 


060000 


001162 




ADD 


#60000. ITMPl 



SEQ 0107 



FIND ADDRESS ACCESSED 

MAKE SURE THAT USING ALL 16 BITS FOR ADDRESS 

DID THE TRANSFER HAPPEN CORRECTLY ? 
IF SO. BRANCH 
URONG DATA 
EXPECTED DATA 
ADDRESS USED 

'RANSFER DID NOT OCCUR CORRECTLY 



; POINT UBE TO THE PATTERN 
; REGISTER 

! INITIALIZE THE DATA BUFFER 

: SET FOR 1 TRANSFER 

: POINT MAP REGISTERS TO PATTERN 

: CLEAR HIGH MAP REGISTER 

i ENABLE UNIBUS MAPPING 



SET UBE FOR NPR-DATI-1 XFER 

IS THE TRANSFER COMPLETE 

NO. THEN WAIT FOR IT TO BE COMPLETE 

YES. THEN DISABLE UNIBUS MAPPING 



FIND ADDRESS ACCESSED 

MAKE SURE THAT USING ALL 16 BITS FOR ADDRESS 

DID THE TRANSFER HAPPEN CORRECTLY ? 
IF SO. BRANCH 
URONG DATA 
EXPECTED DATA 
ADDRESS USED 

TRANSFER DID NOT OCCUR CORRECTLY 



MORE THAN 32K OF PHI MEMORY? 
; IF NOT. EXIT TEST 
TO GET TO NEXT ALU 
BY SHIFYING 4 TIMES 



GET NEXT REGISTER PAIR 
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T53 ALU TEST USING UBE 

4500 017432 053700 001162 BIS *TMP1,R0 

4501 017436 053704 001162 BIS $TMP1.R4 

4502 017442 022737 020000 001162 CMP #20000. ITMPl 

4503 017450 001213 BNE 1$ 

4504 017452 201: 



SET TO SELECT NEXT REGISTER PAIR 

ALL 3 ALU'S DONE? 
IF NOT. BRANCH 



F9 
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TEST - CARRY PROROGATION TEST USING UBE 



SEQ 0109 



4506 

4507 

4508 

4509 

4510 

4511 

4512 

4513 

4514 

4515 

4516 

4517 

4518 

4519 

4520 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

4542 

4543 

4544 



4545 
4546 
4547 
4548 
4549 
4550 
4551 
4552 
4553 
4554 
4555 
4556 
4557 
4558 
4559 



017452 000004 



.SBTTL TEST - CARRY PROPOGATION TEST USING UBE 

* THIS TEST VALIDATES THAT CARRY CAN BE PROROGATED THRU ALL ALU'S CORRECTLY. 

* THE RESULT IS OBTAINED FROM LOCATION 0. 

BGNTST 



SET UP THE UBE FOR A DATI CYCLE 



LET a«0 :- «S2525 
LET BE16A »2 
LET BE1CR2 :- 0 
LET BEIOB :• 0 
LET BEICC :- -1 



INITIALIZE DmTA BUFFER 
SET FOR 1 XFER 



SET UBE FOR A NPR-OATI-1 XFER 

SET UP THE MAP REGISTER FOR THE TRANSFER 

LET MAPLOO PmiT' jPOINT UMR «0 TO DATA PATTERN 

LET MAPHOO :- #77 
ENABLE UNIBUS MAPPING 

GO DO THE TRANSFER 

SET OFF THE TRANSFER 

UAIT FOR TRANSFER TO COMPLETE 

DISABLE UNIBUS MAPPING 

CHECK IF THE TRANSFER OCCURED CORRECTLY 

IF BEIDB NEQ S<K) (52525) THEN 

. ERROR DATI THROUGH UNIBUS MAP DID NOT EXECUTE CORRECTLY 
ENDIF 

ENDTST 



: *************************************************************** 

♦TEST 54 CARRY PROPOGATION TEST USING UBE 

;*************************************************************** 

TST54: SCOPE 



017454 
017460 



017464 
017472 
017500 
017504 
017510 
017516 
017524 



005037 172354 
004737 002502 



CLR 
JSR 



KIPAR6 
PC.IU6E 



i CLEAR FOR ERROR REPORTS 
i INITIALIZE THE UBE 



SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 



012737 
012777 
005077 
005077 
012777 
012737 
012757 



052525 
000002 
162510 
162472 
177777 
177777 
000077 



000000 
162506 



162466 

170200 
170202 



MOV 


«52525.9«0 


! TEST LOCATION 


MOV 


«2.aBElBA 


POINT UBE TO THE FIRST UNIBUS MAP 


CLR 


9BE1CR2 


REGISTER 


CLR 


9BE1DB 


INITIALIZE THE DATA BUFFER 


MOV 


«-l.aBElCC 


SET FOR 1 TRANSFER 


MOV 


#177777, MAPLOO 


POINT MAP REGISTERS TO OVERFLOW 


MOV 


«77. MAPHOO 
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T54 CARRY PROROGATION TEST USING UBE 



4560 


017532 


052737 


000040 


172516 


BIS 


#BIT5.MMR3 


4561 














4562 














4563 










i GO DO THE 


TRANSFER 


4564 














4565 














4566 


017540 


012777 


002041 


162442 


MOV 


»2041.a6ElCRl 


4567 


017546 


032777 


A A A 

000200 


162434 5*: BIT 


0BIT7,aBElCRl 


4568 


017554 


001774 






BEQ 


5i 


4569 


017556 


042737 


AAA A M A 

000040 


172516 


BIC 


OBITS. a»MMR3 


4570 














4571 














4572 










CHECK THE 


TRANSFER 


4573 














4374 














4575 


017564 


027727 


162412 


052525 


CMP 


9BE10B,«52525 


4576 


017572 


001411 






BEQ 


TST55 


4577 


017574 


017737 


162402 


001126 


MOV 


96E10B.(B00AT 


4578 


017602 


012737 


052525 


001124 


MOV 


052525. $G00AT 


4579 


017610 


005037 


001122 




CLR 


$BDADR 


4580 


017614 


104023 






ERROR *23 


4581 















ENABLE UNIBUS MAPPING 



SET UBE FOR NPR DATI-1 XFER 

IS THE TRANSFER COMPLETE 

NO, THEN WAIT FOR IT TO BE COMPLETE 

YES. THEN DISABLE UNIBUS MAPPING 



DID THE TRANSFER HAPPEN CORRECTLY 7 
; GO TO THE NEXT TEST 
URONG DATA 
EXPECTED DATA 
ADDRESS USED 

TRANSFER DID NOT OCCUR CORRECTLY 



H9 
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TEST - NXM TEST USING U6E 



SEQ 0111 



4583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 

4599 

4600 

4601 

4602 

4603 

4604 

4605 

4606 

4607 

4608 

4609 

4610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 



4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4626 
4629 
4630 
4631 
4632 
4633 
4634 
4635 
4636 



017616 
017620 



017624 
017632 
017640 
017644 
017650 
017654 
017662 
017670 
017676 



012777 
012777 
005077 
005077 
005077 
012777 
012737 
012737 
052737 



.SBTTL TEST - NXM TEST USING UBE 

;* THIS TEST CHECKS THAT ACCESSING NXM MEMORY CAN BE DONE CORRECTLY THRU 
;* UBE. TEST LOCATION USED IS 17760000. 

i BGNTST 



SET UP THE UBE FOR A OATI CYCLE 



LET BEIBA 0 

LET BE1CR2 :« 0 

LET BEIDB 0 

LET BEICC -1 



POINT ADDRESS TO MAPXOO 

INITIALIZE DATA BUFFER 
SET FOR 1 XFER 



SET UBL rOR A NPR-OATI-1 XFER 

SET UP THE MAP REGISTER FOR THE TRANSFER 

LET MAPLOO :- «160000 ; POINT UMR »0 TO DATA PATTERN 

LET MAPHOO :- #77 
ENABLE UNIBUS MAPPING 

GO DO THE TRANSFER 

SET OFF THE TRANSFER 

CHECK IF THE TRANSFER OCCURED CORRECTLY 

IF #BIT08 NOTSET IN a8ElCR2 THEN 

ERROR DATI TO NXM IS WRONG 
ENDIF 

ENDTST 



000004 

004737 002502 



; • *************************************************************** 

j*TEST 55 NXM TEST USING UBE WITH RELOCATION ENABLED 

TST55: SCOPE 

JSR PC.IUBE : INITIALIZE THE UBE 



SET UP UBE AND UNIBUS MAP REGISTERS FOR A OATI CYCLE 



017754 
000340 
162342 
162344 
162326 
177777 
160000 
000077 
000040 



162364 
162360 



162322 
170200 
170202 
172516 



MOV 


«10«.seElVEC 


i POINT INTERUPT VECTOR 


MOV 


«340.SBE1PSU 




CLR 


aSElBA 


; POINT UBE TO THE FIRST UNIBUS MAP 


CLR 


a8ElCR2 


REGISTER 


CLR 


aSElOB 


INITIALIZE THE DATA BUFFER 


MOV 


«-1.8BElCC 


SET FOR 1 TRANSFER 


MOV 


«160000. MAPLOO 


POINT n,iP REGISTERS TO NXM 17760000 


MOV 


*77. MAPHOO 




BIS 


#0IT5.MMR3 


ENABLE UNIBUS MAPPING 



017704 012777 002041 162276 



GO DO THE TRANSFER 

MOV »2041.9BE1CR1 



SET UBE FOR NPR-DATI-1 XFER 
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4637 


017712 


032777 


000200 


162270 


5»: 


BIT 


#BIT7.aBElCRl 


4638 


017720 


001774 








BEQ 


5$ 


4639 


017722 


032777 


000400 


162264 




BIT 


0BIT08.SBE1CR2 


4640 


017730 


001001 








BNE 


6$ 


4641 


017732 


104022 








ERROR 


♦ 22 


4642 


017734 


106427 


000140 






MTPS 


»140 


4643 


017740 


000240 








NOP 




4644 


017742 


000240 








NOP 




4645 


017744 


104022 








ERROR 


♦ 22 


4646 


017746 


000404 








BR 


12$ 


4647 


017750 


106427 


000340 






MTPS 


#340 


4648 
















4649 










i CHECK 


THE TRANSFER 


4650 
















4651 


017754 


062706 


000004 




io«: 


ADD 


04. SP 


4652 


017760 


042737 


000040 


172516 


12$: 


BIC 


«BIT5,S»nnR3 


4653 

















IS THE TRANSFER COMPLETE 

NO. THEN WAIT FOR IT TO BE COMPLETE 

NXM 7 

IF SO. BRANCH 
NXM NOT SET 
ALLOW INTERRUPTS 



NXM WITHOUT INTERRUPT 
RESTORE PRIORITY 



ADJUST STACK 

YES. THEN DISABLE UNIBUS MAPPING 



J9 
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46SS 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 

4S71 

4672 

4673 

4674 

4675 

4676 

4677 

4678 

4679 

4680 

4681 

4682 

4683 



4684 
4685 
4686 
4687 
4688 
4689 
4690 
4691 
4692 
4693 
4694 
4695 
4696 
4697 
4698 
4699 
4700 
4701 
4702 
4703 
4704 
4705 
4706 
4707 
4708 



017766 000004 



017770 
017776 
020002 
020006 
020014 
020020 
020022 
020030 
020032 
020040 
020046 



020054 
020062 
020066 
020070 
020074 



013737 
013701 
042701 
012737 
032701 
001404 
162737 
077104 
052737 
012737 
042737 



.SBTTL TEST - RELOCATION UITH UNIBUS MEMORY 

• THTS TEST UILL CHECK THAT MAPPING REGISTER PAIRS THAT ARE 

• ASSOCIATED UITH UNIBUS MEMORY DO NOT PERFORM RELOCATION. 

• IF ANY UNIBUS MEMORY PRESENT. DATI CYCLES TO THAT MEMORY 

• UILL BE CHECKED. 
* 



BGNTST 



DO FOR KMCR - *67.27 (18-BIT AND 22 BIT MODES, 32K OF PMI MEMORY) 
DO UITH MAPPING PAIRS 10 TO 36 

DO DATI TO 0 USING SELCTED MAPPING PAIR 

IF NO TIMEOUT THEN 
. . ERROR DISABLED REGISTER PAIRS DO RELOCATION 
. ENDIF 
ENDDO 

IF ANY UNIBUS MEMORY PRESENT THEN 

DO DATI UITH RELOCATION ENABLED 

IF RELOCATED THEN 
. . ERROR 
. ENDIF 
ENDIF 



ENDTST 



: *************************************************************** 

♦TEST 56 RELOCATION UITH UNIBUS MEMORY 

TST56: SCOPE 



177734 
177734 
177740 
170374 
000037 



001162 
001160 



0000 M 001160 



000400 
000067 
000400 



052737 000040 
012701 170240 
005002 

012703: 000001 
004737 I 002502 



177730 
177734 
177730 



172516 



100«: 
101$: 



MOV 


KMCR.ITMPl 


■ 


STORE KMCR 


MOV 


KMCR.Rl 




STORE KMCR 


BIC 


•177740. Rl 


• 


LEAVE ONLY <4-0> 


MOV 


#MAPL37.*TMP0 


t 


START UITH HIGHEST ADDRESS 


BIT 


#37. Rl 


I 


ANY UNIBUS MEMRORY? 


BEQ 


1011 




IF NOT, BRANCH 


SUB 


M.ITMPO 




GET LOUER REGISTER PAIR 


SOB 


Rl.lOOt 




LEAVE IN ITMPO HIGHEST AVAILABLE PAIR 


BIS 


MIT08.DCSR 




ENABLE DIAGN. MODE 


MOV 


«67.KMCR 


2 


18-BIT. 32K PMI 


BIC 


«BIT08.DCSR 


f 


DISABLE DIAGN. MODE 



MAPPING REGISTERS FOR INITIAL CONDITIONS 



1»: Y 

Cl 



2«: 



BIS 

pv 

LR 
MOV 
JSR 



#BIT5.MMR3 
#MAPL10.R1 
R2 

«1.R3 
PCIUBE 



ENABLE UNIBUS MAPPING 
. POINT TO MAPLIO 
. ADDRESS BITS <15-0> REG. 
. ADDRESS FOR CR2<17-16> 
. . INITIALIZE THE UBE 



10 



SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 
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4709 020100 


010277 


• £ ^ • A^ 

162102 






MOV 


R2,9BE1BA 


, . . POINT UBE TO FIRST MAP REGISTER 


4710 020104 


005077 


• f9 • Ail 

162104 






CLR 


9BE1CR2 


. . REGISTER 


4711 020110 


At A9^^ 

010377 


4 X. 4 A A 

162100 






MOV 


R3.SBE1CR2 


, . . LOAD ADDRESS <17-16> 


4712 020114 


AACA?^ 

005077 


162062 






CLR 


9BE1DB 


. . INITIALIZE THE DATA BUFFER 


4713 020120 


A« 9^^^ 

012777 


1 77777 

177777 


4 £. OAe£. 

162056 




MOV 


«-1.9BElCC 


FAB 4 TBA&lfPPn 

. . SET FOR 1 TRANSFER 


4714 02012D 


AACA31 








CLR 


CRD* 


^1 CAB 1 All MAB np^TfTPB 

. . CLEAR LOU MAP REGISTER 


A9A4 TA 


AAKA91 

003021 








CLR 


CRD* 


Akin UT^U MAD TAA 

. . AND HIGH HAH TOO 


4716 020132 


At 3777 

012777 


A3A39A 

020220 


162056 




MOV 


fflOl.aBElVEC 


1 AAA TUTPnniinT V/r^TAO 

. . LOAD INTERRUPT VECTOR 


•* 11 f Ucvl4U 


A1 3777 

012777 


000340 


162032 




MOV 


»340,9BE1PSU 












i 
















; bU 


DO THE TRANSFER 




A73A 
















4 ^<J. 


















ftl 3777 


0030A 1 
00c041 


lDcU34 




MOV 


A30iii aRPiroi 


, . at 1 UBt rUK NrK-UHIJ.-l XrtH 


ties Uewlj4 


rtT3777 


UUUsUU 


lOcUcO 


3* : 


BIT 


ARTT7 aRPITQI 




4 t e4 UeUiOc 


ftAI 774 








BEQ 


Si 


kin TUCkJ IJATT CAD TT TA DC f^AMDI CTC 
nU.mcN UHl 1 rUH 11 lU DC LUrlrLcIc 


A3A1ilA 


rtT3777 
U3e Iff 


000400 


1D2022 




BIT 


ARTTAA aRFirPP 
vox 1 vo 1 iVDCXi#nc 


kJVH CCTO 

Nxn at 1 f 


A73ii nam 73 


AA < AA3 








BNE 


WW 




A737 nsm 7A 










ERROR 


♦ 33 


un uvM 


A73JI nsm 7<t 

4 r CO VCMX lO 


AAAA 1 3 








BR 


111 




4 r ev veUcvU 


lV04e f 


OOA1 AO 






MTPS 


A140 


1 AUCD DDTADTTV 
. . LUWtn KKIUKI 1 T 


4 f UcUcU4 


AAA3AA 








NOP 




UATT CAD TKITCDDI IDT 
• • MMl 1 r UN IN 1 tNNUK 1 












NOP 
















ERROR 


♦ 22 


MA TMTFOOl IDT AM MVM 
nU IN 1 CnnUr 1 UN NAri 


4rd3 UcUclc 


1 n<^A37 

iuo4e r 


OOOXAO 






MTPS 


«340 


DATCF DOTOOTTV 




AAAA03 








BR 


11$ 












101: 


ADO 


#4.SP 




«7'»H A3A33A 


OA37A3 


A3AAAA 




111: 


ADO 


«20000.R2 


CPI PrT MPyT HAD DATO OPftTCTCD 
aCL.CL 1 NCAI nnr rnXH nCUlOlCn 


47X7 n3n3'^n 


^U3Wx 








BCC 


12 « 


TF MA rAOOY ROAMru 


A7VA n3A9V9 
4 f 30 UeUc3c 


W3cV3 








INC 


R3 


ATMPPUTCP TMrOFMFMT AAADPCC <17 I&n 


4 r 37 VcVb3^ 




AA1 IHA 




121: 


CMP 


♦TMPO.Rl 


Al 1 AAMP? 
ALL uunc X 


A7An A3A9AA 
4 f 4W vcUc^U 


1 01 XI ^ 
XvX3X3 








BHI 


21 


TP 1 PQQ THAM RDAUru 

xr Lcaa 1 Finn . Dnnni#n 


4 f 4i 
















A7A3 
4 f 4c 








: CHECK IF DONE 


UITH 22-BIT MODE 


AND 18-BIT 


4743 
















4744 020242 


032737 


000040 


177734 




BIT 


•BIT05.KMCR 


. 22 -BIT MODE DONE? 


4745 020250 


001412 








BEQ 


13« i 


. IF YES. BRANCH TO EXIT 


4746 020252 


052737 


000400 


177730 




BIS 


«BIT08.DCSR 


. ENABLE DIAGN. MODE 


4747 020260 


012737 


000027 


177734 




MOV 


#27.KMCR 


. 22-BIT. 32K PMI 


4748 020266 


042737 


000400 


177730 




BIC 


«BIT08,DCSR 


. DISABLE DIAGN. MODE 


4749 020274 


000672 








BR 


li i 


. DO AGAIN IN 22 BIT MODE 


4750 
















4751 








! IF 


ANY UNIBUS 


MEMORY PRESENT. DO RELOCATION THRU IT 


4752 

















4753 020276 022737 170374 001160 

4754 020304 001432 

4755 020306 012777 140000 161672 

4756 020314 012777 000003 161672 

4757 020322 005037 170370 

4758 020326 005037 170372 

4759 020332 012737 123456 000000 

4760 020340 005077 161636 

4761 020344 012777 002071 161636 

4762 020352 105777 161632 

4763 020356 10037S 

4764 020360 022777 123456 161614 
I 4765 020366 001001 



CMP #MAPL37.»TMP0 

BEQ 2001 

MOV #140000, 9BE1BA 

MOV «3,96E1CR2 

CLR MAPL36 

CLR MAPH36 

MOV «123456,9«0 

CLR 9BE1DB 

MOV 02071. 9BE1CR1 

TSTB 9BE1CR1 

BPL 201 

CMP 0123456. 96E10B 

BNE 2001 



ANY UNIBUS MEMORY? 

IF NO. EXIT 

TRY TO DO DATI THRU 

THRU MAP 36 REGISTER 
CLEAR MAPPING REGISTER 

PAIR 

SET UP PATTERN AT 0 
CLEAR DATA REGISTER 
START DATI 
WAIT TILL 
DONE 

DATA CAME FROM 800? 
IF NOT. BRANCH 
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4766 020370 104033 ERROR *ZZ 

4767 020372 052737 000400 177730 200* : BIS #BIT08,DCSR 

4768 020400 013737 001162 177734 MOV nMPl.KMCR 

4769 020406 042737 000400 177730 BIG «BIT08.0CSR 



RELOCATED UNIBUS MEMORY 
ENABLE DIAGN. MODE 
RESTORE KMCR 
DISABLE DIAGN. MODE 



M9 
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SEQ 0116 



4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4780 

47S1 

4782 

4783 

4784 

4785 

4786 

4787 

4788 

4789 

4790 

4791 

4792 

4793 



4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 
4806 
4807 
4808 
4809 
4810 
4811 
4812 
4813 
4814 
4815 
4816 
4817 
4818 
4819 
4820 
4821 
4822 
4823 
4824 



020414 000004 



020416 
020422 



020424 
020430 
020436 
020444 
020450 



020456 
020464 
020472 
020500 
020506 
020514 
020520 
020526 
020534 
020542 



020550 
020554 
020560 
020566 



005737 
001561 



004737 
052737 
052737 
013702 
042737 



052737 
013737 
052737 
012737 
042737 
005037 
012737 
012777 
012777 
012737 



004737 
005077 
012777 
012777 



001720 



002276 
000001 
000020 
001720 
000001 



000040 
177734 
000400 
000067 
000400 
170200 
000001 
020640 
000340 
002000 



002502 
161426 
177777 
002041 



177572 
172516 

177572 



172516 
001160 
177730 
177734 
177730 

170202 
161462 
161456 
172354 



161416 
161414 



.SBTTL MAIN MEMORY DISABLE THRU UBE 



* THIS TEST CHECKS THAT A MAIN MEMORY RESPONSE IS DISABLED WHENEVER 

* THE APPROPRIATE BITS IN KMCR ARE SET. THE FIRST 32K ARE NOT GOING 

* TO BE CHECKED. THE DMA OATI CYCLES UILL BE DONE THAT SHOULD CAUSE 

* NXn BIT TO BE SET IN THE UBE REGISTER. 



BGNTST 



SIZE THE MEnORY AVAILABLE 
DO FOR ALL MEMORY PAGES 

LET KMCR DISABLE THAT PAGE IN MEMORY 
DO DATI TO THAT LOCATION 
IF NO TIMEOUT THEN 

. ERROR DISABLED MEMORY DOES NOT TIMEOUT 
ENOIF 
ENDDO 



ENDTST 



:*TEST 57 MAIN MEMORY DISABLE THRU UBE 

TST57: SCOPE 



TST 
BEQ 



PMIS 
TST60 



ENABLE MMU AND SIZE MEMORY 



JSR 
BIS 
BIS 
MOV 
BIG 



PC.MAPPR 

«eiT00.MMR0 

«BIT04.MMR3 

PMIS.R2 

«BIT00.MMR0 



{ ANY PMI MEMORY? 
II IF NONE. EXIT TEST 



REMAP PROGRAM AREA 
ENABLE MMU 
ENABLE 22-BIT MODE 
STORE HIGHEST PAGE 
DISABLE MMU 



SETUP MAPPING REGISTERS AND KMCR 



BIS 


«eiT5.8«MMR3 


I 


ENABLE UNIBUS MAPPING 


MOV 


KMCR. ♦ TMPC 


i 


SAVE KMCR 


BIS 


»eiT08.0CSR 


i 


ENABLE DIAGNOSTIC MODE 


MOV 


♦67, KMCR 


S 


18-BIT. >32K DISABLED 


BIC 


MIT08.0CSR 




DISABLE DIAGNOSTIC MODE 


CLR 


MAPLOO 




CLEAR LOU MAP REGISTER 


MOV 


«1,MA?H00 




POINT TO 32K 


MOV 


«20I.9BE1VEC 


t 


. LOAD INTERRUPT VECTOR 


MOV 


»340.8BE1PSU 


• 




MOV 


•2000.KIPAR6 


s 


INITIAL POINTER TO ABOVE 



i 00 DATI TO DISABLED MEMORY 

ioi: JSR PC.IUBE 
CLR 8BE1BA 

MOV #-i.aeEicc 

MOV *2041.aBElCRl 



INTIALISE UBE 

. ADDRESS TO ACCESS THRU MAP 0 
. ONE CYCLE 

. SET UBE FOR NPR-DATI-1 XFER 
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4825 


020574 


032777 


000200 


161406 


141: 


BIT 


4826 


020602 


001774 








BEQ 


4827 


020604 


032777 


000400 


161402 




BIT 


4828 


020612 


001002 








BNE 


4829 


020614 


104022 








ERROR 


4830 


020616 


000412 








BR 


4831 


020620 


106427 


000140 




15$: 


MTPS 


4832 


020624 


000240 








NOP 


4833 


020626 


000240 








NOP 


4834 


020630 


104022 








ERROR 


4835 


020632 


106427 


000340 






MTPS 


4836 


020636 


000402 








BR 


4857 


020640 


062706 


000004 




201: 


ADD 


4838 














4839 










: CHANGE PAGE 


4840 














4841 


020644 


023702 


172354 




251: 


CMP 


4842 


020650 


103032 








BHIS 


4643 


020652 


062737 


004000 


170200 




AOO 


4644 


020660 


103002 








BCC 


4645 


020662 


005237 


170202 






INC 


4646 


020666 


032737 


017777 


170200 


26«: 


BIT 


4647 


020674 


001017 








BNE 


4646 


020676 


062737 


000200 


17235> 




ADD 


4649 


020704 


052737 


000400 


177730 




BIS 


4B30 


020712 


003337 


17773* 






DEC 


4651 


020716 


032737 


0C0040 


177734 




BIT 


4652 


020724 


001404 








BEQ 


4653 


020726 


042"»S7 


000400 


177730 




BIC 


4654 


020734 


000705 






27»: 


BR 


4655 


020736 


042737 


000040 


172516 


30«: 


BIC 


4856 


020744 


052737 


000400 


177730 




BIS 


4857 


020752 


013737 


001160 


177734 




MOV 


4856 


020760 


042737 


000400 


177730 




BIC 


4659 















N9 
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•6IT7,8BE1CR1 
14$ 

*6IT08.9BE1CR2 

15$ 

«22 

25$ 

•140 



IS THE TRANSFER COMPLETE 

NO.THEN WAIT FOR IT TO BE COMPLETE 

NXM SET? 

IF SO. BRANCH 

NO Nxn 

LOUER PRIORITY 
UAIT FOR INTERRUPT 



♦ 22 
«340 
25$ 
•4,SP 



NO INTERRUPT ON NXM 
RAISE PRIORITY 
BRANCH 
ADJUST STACK 



ACCESSED AND CHECK END CONDITIONS 



KIPAR6,R2 


i 


. ALL PAGES DONE? 


30$ 


i 


. IF YES. EXIT 


MOOO.MAPLOO 


I 


. INCREMENT IN IK 


26$ 


■ 


. IF NO CARRY. BRANCH 


MAPHOO 


1 


. OTHERWISE INCR. HIGH MAP 


•17777, MAPL 00 


f 


. IS IT ON 4K BOUNDARY? 


27$ 


! 


. IF NOT. BRANCH 


•200.KIPAR6 


t 


. INCREMENT COUNTER 


•6IT06.0CSR 


> 


. ENABLE OIAG. MODE 


KMCR 




. ACCESS NEXT HIGHER LOCATION 


•BIT05.KMCR 


> 


. ALL 126K DONE? 


301 


• 


. IF SO. BRANCH 


•BITOB.OCSR 


i 


. DISABLE DIAG. MODE 


10$ , 
•BIT05.rtlR3 


> 


. DO FOR THE NEXT PAGE 


t 


DISABLE MAPPING 


•BIT08.0CSR 


I 


ENABLE DIAG. MODE 


$TMP0,Kf1CR 


: 


RESTORE KMCR 


•BIT08.0CSR 


• 


DISABLE DIAG. MODE 



BIO 
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TES' UNIBUS DEVICE OATOe CYCLE 



SEO one 



4861 


.SBTTL TEST - UNIBUS DEVICE DATOB CYCLE 


4862 






4863 




THT<^ TF<^T UTI 1 ^FF If THP kTJll.R Hnniil P PAN FYFCillF 


4864 




A UNTBUS DEVICE DATOB 


4865 


• * 




4866 


• 
• 




4867 


I 


BGNTST 


4868 


• 
■ 




4869 


• * 




4870 


• * 


SET UP UBE FOR A DATOB CYCLE 

WW ■ W WW ■ wri n ■ wv W ■ WWW 


4871 


• * 




4872 


• 


LET Rl ADDRESS OF THE URITE BUFFER 

WW ■ V* A • ■ii^i^fvww^v 1 f iw ^vr^ A 1 w (^\#> wv* 


4873 


9 


LET (Rl) •» 0 : CLEAR OUT THE LOCATION 

WW> • V 1 W W W r^r^ WW 1 II IW W WW ■ A Wl^ 


4874 


t 


LET BEIDB •■ 77777 :DATA PATTERN IS 77777 

W W 1 WW A WW a f 1 f 1 1 f wn in rniiwnn Aw 1 t 1 1 t 


4875 


i 


LET BEICC •■ -1 iSET FOR 1 DATA XFER 

wwiwwAWW* A jwwii wr« A w* in m wn 


4876 


i 


LET BEIBA " Rl : ADDRESS IS FIRST LOCATION 

WW ■ wwAWri ■ <« A $ ••wwr^www Aw ■ Ar^w I WWWr^ i AWH 


4877 


> 


SET UBE FOR NPR- DATOB -1 XFER 


4878 


• 


SET OFF THE TRANSFER 


4879 


* 


UAIT FOR THE TRANSFER TO COMPLETE 


4680 


s t 




4881 


; ♦ 


CHECK IF THE TRANSFER OCCURED CORRECTLY 


4882 


S* 




4883 


: 


IF (Rl) NEQ #377 THEN 


4884 


I 


. ERROR TRANSFER DID NOT EXECUTE CORRECTLY 


4885 


; 


ENOIF 


4886 






4887 




ENDTST 


4888 






4889 






I 




4890 






4891 





020766 000004 



;*TEST 60 UNIBUS 0. rflCE DATOB CYCLE TEST 

TST60: SCOPE 



4892 
4893 
4894 
4895 
4896 
4897 
4898 
4899 
4900 
4901 
4902 
4903 
4904 
4905 
4906 
4907 
4908 
4909 
4910 
4911 
4912 



020770 
020774 
021000 
021002 
021010 
021016 



021022 
021030 
021036 



021040 
021044 
021046 



004737 
012701 
005011 
012777 
012777 
010177 



012777 
032777 
001774 



021127 
001401 
104033 



002502 
001734 

077777 
177777 
161164 



003441 
000200 



000377 



161172 
161166 



161160 
161152 



JSR 


PC.IUBE 


■ INITIALIZE THE UBE 


MOV 


*URTBUF.R1 


GET POINTER TO URITE BUFFER 


CLR 


(Rl) 


CLEAR OUT THE LOCATION 


MOV 


#77777. aSElDB 


SET DATA BUFFER UP 


MOV 


#-1.9BElCC 


SET FOR 1 DATA TRANSFER 


MOV 


Rl.SBElBA 


POINT UBE XFER TO WRITE BUFFER 



: DO THE TRANSFER 

MOV #3441,seElCRl 
51: BIT «BIT7.9BE1CR1 

BEQ 5$ 



CHECK THE TRANSFER 



CMP 
BEQ 
ERROR 



(Rl).#377 
TST61 
♦ 33 



; SET UP UBE FOR NPR-DAT06-1 XFER 

; IS THE TRANSFER COMPLETE ? 

s NO, THEN WAIT FOR IT TO COMPLETE 



; WAS THE TRANSFER CORRECT ? 

S! YES GO TO THE NEXT TEST 

t ERROR TRANSFER WAS INCORRECT 



CIO 
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TEST - UNIBUS DEVICE DATIP CYCLE 





.SBTTL TEST - UNIBUS DEVICE DATIP CYCLE 












J* 


TMTQ TPQT UTI 1 QPT TP TUP Vtl Ml P HOni 11 P TAKl PymiTP 


491 7 






A IMTRllQ nPUTPP nATTP PYn P 


491S 








4919 








4920 






RHNTQT 
Doni 1 o 1 


4921 








492P 






TNTTTAl T7r UQTTP RIJPPPR PHP HATTP PYn P 


4923 








4924 






1 PT R1 PnTNTPO Tn UPTTP RliPPPP 


492S 






no POP pp • ■ 1 Tn A 


4926 






1 PT f PI 1« *« flSPSPS 


4927 








4920 




* 




4929 




* 


^PT i)P ijRP Tn nn a nATTP' ^ Tn upttp riipppp 


4930 




* 




4931 






1 PT RF1RA Annpp^^ np upttp riipppp 


4932 






L FT RF1 rr • ■ -A • QPT FnR A TRAN^FFR<^ 


4933 






SET UBF FOR NPR-OATTP-1 XFER 


4934 






SET DFF THF TRANSFER 


4935 






UAIT FOR TRANSFER TO BE COMPLETE 


4936 




* 




4937 




* 


CHECK IF DATIP UAS EXECUTED CORRECTLY 


4930 




* 




4939 


s 


LET Rl ADDRESS OF WRITE BUFFER 


4940 


i 




DO FOR R2 ■- 1 TO 8 


4941 


i 




. IF (RD* NEQ 125252 THEN 


4942 


i 




. . ERROR TRANSFER DID NOT EXECUTE CORRECTLY 


4943 


i 




. ENOIF 


4944 


1 




ENDDO 


4945 


1 






4946 


1 




ENOTST 


4947 


i 






494S 








1 






4949 








4950 


j 


; ********************************************************** 



!*TEST 61 UNIBUS DEVICE DATIP CYCLE TEST 

• ; *************************************************************** 

021050 000004 TST61: SCOPE 

4951 

4952 021052 004737 002502 JSR PC.IUBE : INITIALIZE THE USE 

4953 

4954 

4955 J INITIALIZE WRITE BUFFER FOR DATIP CYCLE 

4956 

4957 

495B 021056 012701 001734 MOV OWRTBUF.Rl j GET POINTER TO WRITE BUFFER 

4959 021062 012702 000010 MOV 08. ,R2 ; SET UP LOOP COUNTER 

4960 021066 012721 052525 5»: MOV 052525. (RD* : . INITIALIZE WRITE BUFFER LOCATION 

4961 021072 077203 SOB R2,5$ ; . HAVE WE DONE IT 8 TIMES ? 
4962 

4963 

4964 ; SET UP UBE TO 8 DATIP 'S TO WRITE BUFFER 

4965 : 
4966 

4967 021074 012777 001734 161104 MOV OWRTBUF .MEIBA ; SET UP UBE TO WRITt BUFFER 
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SEQ 0120 

T61 UNIBUS DEVICE DATIP CYCLE TEST 





OP 1 1 OP 


OOS077 


\(%\ 106 






CLR 


9BE1CR2 






091 106 


VAC III 


177770 


A V A V r V 




MOV 


»-8. .SBEICC 


SET UP FOR 8 TRANSFERS 


4970 


021114 


012777 


002441 


161066 




MOV 


02441. aSElCRl 


SET UP UBE FOR NPR OATIP 1 XFER 


4971 


VC A ACS 


03P777 

V<^C III 


OOOPOO 


161060 

A V AVVV 


lot • 

XVt ■ 


BIT 


*BIT-'.aBElCRl 


IS THE TRANSFER COMPLETE ? 


4972 


021130 


001774 








BEQ 


10* 


NO, THEN UAIT FOR IT TO BE COMPLETE 


4973 


















4974 


















4975 










• CHECK 


IF OATIP WAS EXECUTED CORRECTLY 


4976 


















4977 


















497S 


021132 


012701 


001734 






MOV 


«URTBUF,R1 


GET POINTER TO URITE BUFFER 


4979 


021136 


012702 


000010 






MOV 


«8. ,R2 


SET UP LOOP COUNTER 


49S0 


021142 


022127 


125252 




15*: 


CMP 


CRD*. 0125252 


. WAS THE TRANSFER CORRECT 7 


49S1 


021146 


001401 








BEQ 


20* 


. YES. THEN GO SEE IF UE ARE DONE CHECKING 


49S2 


021150 


104033 








ERROR 


♦ 33 


. NO. THEN ERROR IN THE TRANSFER 


49S3 


021152 


077205 






20$: 


SOB 


R2.15$ 


. HAVE WE CHECKED ALL THE XFERS 


4984 


















4985 
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4987 
4988 
4989 
4990 
4991 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 
5000 
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 
5009 
5010 
5011 
5012 
5013 
5014 
5015 
5016 
5017 
5018 
5019 
5020 
5021 
5022 
5023 

5024 
5025 
5026 
5027 
5028 
5029 
5030 
5031 
5032 
5033 
5034 
5035 
5036 
5037 
5038 
5039 
5040 
5041 
5042 
5043 



ElO 
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SEQ 0121 



.S8TTL TEST - UNIBUS DEVICE I/O PAGE READ CYCLE 



:* 

!* 

;* 
* 

* 
* 
* 

* 
* 
* 



THIS TEST WILL SEE IF THE KTJll-B MODULE CAN EXECUTE 
A UNIBUS DEVICE I/O PAGE READ CYCLE. THIS CONSISTS OF 
FOUR DIFFERENT TYPES OF READS : 

1, UNIBUS DEVICE PMI I/O PAGE READ CYCLE 

?. UNIBUS DEVICE TO UNIBUS DEVICE I/O PAGE READ CYCLE 

3. UNIBUS DEVICE BOOT ROM READ CYCLE 

4. UNIBUS DEVICE MAP REGISTER READ CYCLE. 



IT 
OF 



ALSO WILL 
THE ABOVE 



CHECK THAT A UNIBUS DEVICE READ CYCLE NOT 
THREE TYPES SHOULD CAUSE A TIMEOUT. 



BGNTST 



DO A UNIBUS DEVICE PMI I/O PAGE READ CYCLE 

LET BEIBA ADDRESS OF CSR OF MEMORY BOARD 

LET BEICC :- -1 ; SET FOR 1 TRANSFER 

SET UBE FOR A NPR-DATI-1 DATA XFER 

SET OFF THE TRANSFER 

WAIT FOR THE TRANSFER TO BE COMPLETE 

IF BEIDB NEQ CONTENTS OF MEMORY CSR THEN 

ERROR UNIBUS DEVICE PMI I/O PAGE READ CYCLE DID NOT EXECUTE CORRECTLY 
ENDIF 

DO A UNIBUS DEVICE TO UNIBUS DEVICE I/O PAGE READ CYCLE 



;SET FOR 1 TRANSFER 



LET BEIBA ADDRESS OF BEIBA 
LET BEICC -1 

SET UBE FOR A NPR-DATI-1 DATA XFER 
SET OFF THE TRANSFER 
WAIT FOR THE TRANSFER TO BE COMPLETE 
IF BEIDB NEQ ADDRESS OF BEIBA 

ERROR UNIBUS DEVICE TO UNIBUS DEVICE I/O PAGE READ CYCLE DID NOT EXECUTE CORRECTL 

ENDIF 



:SET FOR 1 TRANSFER 



DO A UNIBUS DEVICE BOOT ROM READ CYCLE 

LET BEIBA 773000 
LET BEICC -1 

SET UBE FOR A NPR-OATI-1 DATA XFER 
SET OFF THE TRANSFER 
WAIT FOR THE TRANSFER TO BE COMPLETE 
IF BEIDB NEQ S«173000 THEN 

. ERROR UNIBUS DEVICE BOOT ROM READ CYCLE DID NOT EXECUTE CORRECTLY 
ENDIF 



DO A UNIBUS DEVICE MAP REGISTER READ CYCLE 

LET BEIBA :» 770200 
LET BEICC :- -1 

SET uer FOR A NPR-DATI-1 DATA XFER 

SET OFh THE TRANSFER 

WAIT FOR THE TRANSFER TO BE COMPLETE 



s UNIBUS MAP REGISTER 00 
sSET FOR 1 TRANSFER 



KTJll-B DIAGNOSTIC MACRO Y05.02 

TEST ■ UNIBUS DEVICE I/O PAGE READ CYCLE 

5044 

5045 
5046 
5047 
5046 
5049 
5050 
5051 
5052 
5053 
5054 
5055 
5056 
5057 
5058 
5059 
5060 
5061 
5062 
5063 
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SEQ 0122 



J* 
;* 
* 



IF BEIDB NEQ S«770200 THEN 

. ERROR UNIBUS DEVICE HAP REGISTER READ CYCLE DID NOT EXECUTE CORRECTLY 
ENDIF 

DO AN ILLEGAL UNIBUS DEVICE I/O PAGE READ CYCLE 



LET BEIBA :- 777730.777732.777734 
LET BEICC :- -1 

SET UBE FOR NPR-DATI-1 DATA XFER 
SET OFF THE TRANSFER 
UAIT FOR THE TRANSFER TO BE COMPLETE 
IF TRANSFER DID NOT TIMEOUT THEN 

. ERROR AN ILLEGAL UNIBUS DEVICE CYCLE HAS OCCURED 
ENDIF 



:DCSR.DDR.KnCR ADDRESS 
:1 DATA TRANSFER 



ENDTST 



5064 

5065 
5066 
5067 
5068 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 
5081 
5082 
5083 
5084 
5085 
5086 
5087 
5088 
5089 
5090 
5091 
5092 
5093 
5094 
5095 
5096 
5097 



021154 
021156 



021162 
021170 
021176 
021204 
021212 
021220 



021222 
021230 
021232 



021234 
021242 
021250 
021256 
021264 
021272 



021274 
021302 
021304 



000004 

004737 002502 



• ; *************************************************************** 

.•♦TEST 62 UNIBUS DEVICE I/O PAGE READ CYCLE 

TST62: SCOPE 



JSR 



PC.IUBE 



INITIALIZE THE UBE 



DO A UNIBUS DEVICE PMI I/O PAGE CYCLE 



013777 
012777 
012777 
012777 
032777 
001774 



027777 
001401 
104033 



013777 
012777 
012777 
012777 
032777 
001774 



023777 
001401 
104033 



001732 
000003 
177777 
002041 
000200 



161016 
161016 
161000 
160776 
160770 



5«: 



MOV MCSR.SBEIBA 

MOV «3.aBElCR2 

MOV «-l.SBElCC 

MOV «2041.aBElCRl 

BIT «BIT7.a6ElCRl 

BEQ S« 



160504 160752 



CHECK OUT THE TRANSFER 

CMP SMCSR.aSElDB 
BEQ 6t 
ERROR *33 



GET ADDRESS OF MEMORY CSR ADDRESS 
SET THE UPPER TUO ADDRESS BITS 
SET FOR 1 TRANSFER 
SET UBE FOR NPR-OATI-1 XFER 
i ARE UE DONE THE TRANSFER 7 
: NO. THEN FOR UAIT FOR IT TO 



WAS THE TRANSFER CORRECT 
YES. THEN GO DO BOOT ROM READ 
NO. THEN ERROR IN READ CYCLE 



002206 
000003 
177777 
002041 
000200 



160744 
160744 
160726 
160724 
160716 



00 A UNIBUS DEVICE UNIBUS DEVICE I/O PAGE CYCLE 



6$: 



8«i 



002206 160700 



MOV 


BEIBA, SBEIBA 


; GET AN ADDRESS IN I/O PAGE 


MOV 


«3.96E1CR2 


! SET THE UPPER TWO ADDRESS BITS 


MOV 


#-l.aBElCC 


! SET FOR 1 TRANSFER 


MOV 


«2041,SBE1CR1 


SET UBE FOR NPR-OATI-1 XFER 


BIT 


06IT7.SBE1CR1 


ARE UE DONE THE TRANSFER 7 


BEQ 


8« 


NO. THEN FOR UAIT FOR IT TO 


OUT THE 


TRANSFER 




CMP 


BEIBA, SBEIDB 


UAS THE TRANSFER CORRECT 


BEQ 


lOi 


YES. THEN GO DO BOOT ROM READ 


ERROR 


*33 


NO. THEN ERROR IN READ CYCLE 



GIO 
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T62 UNIBUS DEVICE I/O PAGE READ CYCLE 



SEQ 0123 



5098 

5099 

5100 

5101 

5102 

5103 

5104 

5105 

5106 

5107 

5108 

5109 

5110 

5111 

5112 

5113 

5114 

5115 

5116 

5117 

5118 

5119 

5120 

5121 

5122 

5123 

5124 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5132 

5133 

5134 

5135 

5136 

5137 

5138 

5139 

5140 

5141 

5142 

5143 

5144 

5145 

5146 

5147 

5148 

5149 

5150 

5151 

5152 

5153 

5154 



00 A UNIBUS DEVICE BOOT ROM READ CYCLE 



021306 
021314 
021322 
021330 
021336 
021344 



021346 
021354 
021362 
021364 



021366 
021374 
021402 
021410 
021416 
021424 



021426 
021434 
021436 



021440 
021446 
021454 
021460 
021464 
021470 
021476 
021504 
021512 
021516 
021524 
021526 
021530 
021532 
021534 
021540 
021542 
021546 
021554 
021556 
021560 
021562 
021566 



012777 
012777 
012777 
012777 
032777 
001774 



052737 
023777 
001401 
104033 



012777 
012/77 
012777 
012777 
032777 
001774 



023777 
001401 
104033 



012777 
012777 
012701 
012702 
010277 
012777 
012777 
012777 
106427 
032777 
001774 
000240 
000240 
104033 
106427 
000407 
062706 
032777 
001001 
104033 
005722 
004737 
077142 



173000 
000003 
177777 
002041 
000200 



000200 
173000 



170200 
000003 
177777 
002041 
000200 



160672 
160672 
160654 
160652 
160644 



177520 
160620 



160612 
160612 
160574 
160572 
160564 



10»: MOV 0173000. SBEIB A 

MOV «3,SBE1CR2 

MOV 0-l.aBElCC 

MOV «2041.S6E1CR1 

15$: BIT «BIT7.96E1CR1 

BEQ 15$ 

CHECK OUT THE TRANSFER 



BIS 0BIT07,BCSR 

CMP 9«1 73000. S6E10B 

BEQ 20$ 

ERROR «33 



GET ADDRESS OF OF THE BOOT ROM 
SET THE UPPER TWO ADDRESS BITS 
SET FOR 1 TRANSFER 
SET USE FOR NPR-DATI-1 XFER 
ARE UE DONE THE TRANSFER 7 
NO. THEN FOR WAIT FOR IT TO 



SELECT RIGHT ROM 

UAS THE TRANSFER CORRECT 

YES, THEN GO DO UNIBUS DEVICE MAP REGISTER READ 
NO. THEN ERROR IN READ CYCLE 



DO A UNIBUS DEVICE MAP REGISTER READ 



20$: MOV «170200,9BE1BA 

MOV «3,9BE1CR2 

MOV «-1.9BElCC 

MOV «2041,9BE1CR1 

25$: BIT 0BIT7.aBElCRl 

BEQ 25$ 

CHECK OUT THE TRANSFER 



GET ADDRESS OF THE MAP REGISTER 
SET THE UPPER TWO ADDRESS BITS 
SET FOR 1 TRANSFER 
SET UBE FOR NPR-DATI-1 XFER 
ARE UE DONE THE TRANSFER ? 
NO, THEN FOR WAIT FOR IT TO 



170200 


160546 




CMP 


9«170200,aBElDB 


! UAS THE TRANSFER CORRECT 








BEQ 


30$ 


■ YES. THEN GO DO ILLEGAL UNIBUS DEVICE I/O READ 








ERROR 


♦ 33 


NO, THEN ERROR IN READ CYCLE 






! DO 


AN ILLEGAL 


UNIBUS DEVICE I/O PAGE READ 


021542 


160550 


30$: 


MOV 


«40$.9BE1VEC 


■ SET UP INTERRUPT VECTOR 


000340 


160544 




MOV 


«340.S6E1PSU 




000003 






MOV 


03. Rl 


', DO FOR 3 REGISTERS 


177730 






MOV 


0177730. R2 


STARTING UITH DCSR CTHEN DDR, KMCR) 


160516 




31$: 


MOV 


R2.aBElBA 


GET ADDRESS OF THE DIAGNOSTIC REGISTER 


000003 


160516 




MOV 


03,9BE1CR2 


, SET THE UPPER TUO ADDRESS BITS 


177777 


160500 




MOV 


0-1.9BE1CC 


SET FOR 1 TRANSFER 


002041 


160476 




MOV 


02041. 9BE1CR1 


SET UBE FOR NPR-DATI-1 XFER 


000140 






MTPS 


0140 


, LOUER PRIORITY 


000200 


160464 


35$: 


BIT 


0BIT7,SBE1CR1 


, ARE UE DONE THE TRANSFER 7 






BEQ 


35$ 


' NO. THEN FOR WAIT FOR IT TO 








NOP 




WAIT FOR INTERRUPT 








NOP 












ERROR 


♦ 33 


ERROR KTJll RESPONDED TO AN ILLEGAL ADDRESS 


000340 






MTPS 


0340 


RAISE PRIORITY BACK 








BR 


45$ 




000004 




40$: 


ADD 


04, SP 


CLEAN UP THE STACK AND THEN GO 00 NEXT TEST 


000400 


160440 




BIT 


0BIT08.3BE1CR2 


NXM SET? 








BNE 


45$ 


IF SET. BRANCH 








ERROR 


♦ 33 


NXM NOT SET ON ILLEGAL REFERENCE 






45$: 


TST 


(R2)» 


GET ADDRESS OF NEXT REGISTER 


002502 






JSR 


PC.IUBE 


CLEAN UP UBE 






SOB 


Rl,31$ 


00 FOR ALL 3 REGISTERS 
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5156 
5157 
5158 
5159 
5160 
5161 
5162 
5163 
5164 
5165 
5166 
5167 
5168 
5169 
5170 
5171 
5172 
5173 
5174 
5175 
5176 
5177 
5178 
5179 
5180 
5181 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
S19S 
5199 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5208 
5209 
5210 
5211 
5212 
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SEQ 0124 



.SBTTL TEST - UNIBUS DEVICE I/O PAGE URITE CYCLE 

* THIS TEST WILL SEE IF THE KTJll-B MODULE CAN EXECUTE 

* A UNIBUS DEVICE I/O PAGE URITE CYCLE. THIS CONSISTS OF 

* TWO DIFFERENT TYPES OF WRITES : 
* 

* 1. UNIBUS DEVICE PMI I/O PAGE URITE CYCLE 

* 2. UNIBUS DEVICE UNIBUS DEVICE I/O PAGE URITE CYCLE 

* 3. UNIBUS DEVICE MAP REGISTER WRITE CYCLE. 
* 

* IT ALSO WILL CHECK THAT A UNIBUS DEVICE WRITE CYCLE NOT 

* OF THE ABOVE THREE TYPES SHOULD CAUSE A TIMEOUT. 



BGNTST 



00 A UNIBUS DEVICE PMI I/O PAGE URITE CYCLE 
LET BEIDB 52525 

LET BEIBA ADDRESS OF CSR OF MEMORY BOARD 

LET BEICC :« -1 ;SET FOR 1 TRANSFER 

SET USE FOR A NPR-DATO-1 DATA XFER 

SET OFF THE TRANSFER 

WAIT FOR THE TRANSFER TO BE COMPLETE 

IF CONTENTS OF MEMORY CSR NEQ 52525 THEN 

ERROR UNIBUS DEVICE PMI I/O PAGE WRITE CYCLE DID NOT EXECUTE CORRECTLY 
ENDIF 

DO A UNIBUS DEVICE TO UNIBUS DEVICE WRITE CYCLE 



DATA PATTERN 

UNIBUS I/O PAGE ADDRESS 

SET FOR 1 TRANSFER 



IF 2 UBE'S THEN 

LET BE2DB :■ 125252 
LET BE2BA :- ADDR. OF BE2DB 
LET BE2CC :- -1 
SET UBE FOR A NPR-DATO-1 DATA XFER 
SET OFF THE TRANSFER 
WAIT FOR THE TRANSFER TO BE COMPLETE 
IF BEIDB NEQ 9125252 THEN 

. ERROR UNIBUS DEVICE TO UNIBUS DEVICE URITE CYCLE DID NOT EXECUTE CORRECTLY 
ENDIF 
ENDIF 



DO A UNIBUS DEVICE MAP REGISTER URITE CYCLE 



;DATA PATTERN 

: UNIBUS MAP REGISTER «0 

:SET FOR 1 TRANSFER 



LET BEIDB :- 52525 
LET BEIBA 770200 
LET BEICC -1 

SET UBE FOR A NPR-DATO-1 DATA XFER 
SET OFF THE TRANSFER 
UAIT FOR THE TRANSFER TO BE COMPLETE 
IF MAP REGISTER 0 NEQ #52525 THEN 

ERROR UNIBUS DEVICE MAP REGISTER URITE CYCLE DID NOT EXECUTE CORRECTLY 
ENDIF 

00 A UNIBUS DEVICE TO BOOT ROM URITE CYCLE 



110 
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SEQ 0125 



5213 

5214 

5215 

5216 

5217 

5218 

5219 

5220 

5221 

5222 

5223 

5224 

5225 

5226 

5227 

5228 

5229 

5230 

5231 

5232 

5233 

5234 

5235 

5236 

5237 

5238 

5239 



5240 
5241 
5242 
5243 
5244 
5245 
5246 
5247 
5248 
5249 
5250 
5251 
5252 
5253 
5254 
5255 
5256 
5257 
5258 
5259 
5260 
5261 
5262 
5263 
5264 
5265 
5266 



021570 
021572 



021576 
021604 
021612 
021620 
021626 
021634 
021642 
021650 



021652 
021660 
021662 



021664 

021672 
021700 
021702 
021710 



000004 
004737 



017737 
013777 
012777 
012777 
012777 
012777 
032777 
001774 



032777 
001001 
104033 



013777 
022737 
001030 
013777 
012777 



;SET FOR 1 TRANSFER 



LET BEIBA :- 773000 
LET BEICC :- -1 

SET USE FOR A NPR-OATO 1 DATA XFER 
SET OFF THE TRANSFER 
WAIT FOR THE TRANSFER TO BE COMPLETE 
IF NO TIMEOUT THEN 

. ERROR UNIBUS DEVICE BOOT ROM URITE CYCLE DID NOT EXECUTE CORRECTLY 
ENDIF 

DO AN ILLEGAL UNIBUS DEVICE I/O PAGE URITE CYCLE 



LET BEIDB :• 52525 
LET BEIBA 777730.777732,777734 
LET BEICC -1 
SET UBE FOR NPR-DATO-1 DATA XFER 
SET OFF THE TRANSFER 
UAIT FOR THE TRANSFER TO BE COMPLETE 
IF TRANSFER DID NOT TIMEOUT THEN 

. ERROR AN ILLEGAL UNIBUS DEVICE CYCLE HAS OCCURED 
ENDIF 

DISABLE UNIBUS MAPPING 



DATA PATTERN 

DCSR, DDR. KMCR ADDRESSES 
1 DATA TRANSFER 



ENDTST 



002502 



160130 
001732 
000003 
040000 
177777 
003041 
000200 



:*TEST 63 UNIBUS DEVICE I/O PAGE URITE CYCLE 

TST63: SCOPE 

JSR PC.IUBE : INITIALIZE THE UBE 

'; DO A UNIBUS DEVICE PMI I/O PAGE CYCLE 



001160 
160374 
160374 
160354 
160350 
160346 
160340 



s 



5i. 



MOV SMCSR.ITMPO 

MOV MCSR.SBEIBA 

MOV «3,a8ElCR2 

MOV «BIT14.98E1DB 

I10V #-l.aBElCC 

MOV #3041.a8ElCRl 

BIT »BIT7,SBE1CR1 

BEQ 5( 



040000 160052 



001160 160040 

000002 001722 

002202 160316 

000003 160316 



CHECK THE TRANSFER 

BIT «BIT14.8MCSR 
BNE 61 
ERROR «33 



STORE MEMORY CSR 

GET ADDRESS OF MEMORY CSR 

SET UPPER TUO ADDRESS BITS 

GET URITE PATTERN 

SET FOR 1 XFER 

SET UBE FOR NPR-OATO-1 XFER 

IS THE TRANSFER COMPLETE 7 

NO. THEN UAIT FOR IT TO COMPLETE 



UAS THE TRANSFER CORRECT 7 

YES. THEN GO DO A MAP REGISTER URITE 

NO. THEN ERROR IN THE TRANSFER 



DO A UNIBUS DEVICE TO UNIBUS DEVICE WRITE CYCLE 



6*: MOV JTMPO.aMCSR 

CMP #2.UBECT 

BNE 10$ 

MOV BEIDB. 96E26A 

MOV «3 . SBE2CR2 



RESTORE MEMORY CSR 
2 UBE'S? 

NO. SKIP SUBTEST 

GET ADDRESS OF TARGET USE REGISTER 
SET UPPER TUO ADDRESS BITS 



JIO 
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T63 UNIBUS DEVICE I/O PAGE URITE CYCLE 



SEQ 0126 



Seo 1 Uci 1 ID 


yjxc. Ill 




leoero 


C^^A 1*7 OA 


UlC III 


X 1 1 1 1 f 


ieOs72 




A1 377"? 
UXsf 1 r 


AATAA1 


XOQd iQ 




rtX0777 
Udc / / / 


UOUeOO 


1 ih.A9£.9 

IDOsDs 










9e re 








3s r 9 








3s f ^ 








3s '3 VSX'3V 


Vs r r C f 


XDUscD 


1 05P^3 


S276 091 7S6 

^S ■ V vs A ■ 


001401 






5577 091760 


104011 
































W JVw r 


1 70300 
X 1 wc vv 




WCwC vex f 


W JVw r 


1 70303 




^CO^ vex r rc 


01P777 
VXs r r r 


1 70P00 


XwVcVO 


$PA4 OPPOOO 

^Sw^ VCCVW 


01P777 

wXS III 


OOOOO'^ 


XOVc vO 


SPAS 0PP006 


01P777 

VXS r f f 




1 fkCi\f%fi 

X vVX vv 


52S6 0PP014 


01P777 

VXS f f 1 


17777fe 


1 ftOl AP 
X vVX vC 


5P87 0P2022 


01P777 

VAC > r f 


003041 


X vVX vV 


SPAS OPP030 


03P777 

V<^S 9 9 9 


OOOPOO 
vvvs vv 


16015P 

X V VX 




001774 

VV A • r ^ 






5290 








5291 








5292 








5293 022040 


023727 


170200 


052524 


5P94 0PP046 


001401 

VVA^ W A 






5P95 0PP050 


104033 






5P96 022052 


022737 


000025 


170202 


5P97 0PP060 


001401 






5P9a 0PP06P 


104033 






5P99 








5300 

3^VV 








5301 








5S0P 0PP064 


01P777 


173000 

A 9 WVW 


160114 

X wx x^ 


5303 0PP07P 


01P777 

VXE 9 9 9 


177777 


160104 

X VV AV^ 


5304 OPPlOO 

tW <9W^ VS S X vw 


01P777 

VAS r r r 


0PP146 

VSS A~V 


160110 

X VVA A V 


S30S 0PP106 

w^Vw VCCXVw 


01P777 

VXS 9 t t 


0OO340 

VVV<^*tV 


160104 
X vvx v~ 




01P777 

VXC r r r 


003041 

W J V*ti 


X vvvvv 


5307 OPPIPP 

^<JV * vccxcc 


1064P7 


000140 




530S 0PP1P6 

^ ^ W VK K A K V 


105777 

XV^ 9 9 9 


160056 




S30Q OPPllP 


100375 






S310 0PP134 


000P40 

VVVS~ V 






5S11 0PP116 


104033 






S31P 0P2140 

WwAK VKCA~V 


1064P7 


000340 

W V V 




5313 0PP144 


000407 






5314 022146 


062706 


000004 




5315 022152 


032777 


000400 


160034 


5316 022160 


001001 






5317 022162 


104033 






531S 








5319 








5320 








5321 022164 


004737 


002502 




5322 022170 


012701 


000003 




5323 022174 


012702 


177730 





81: 



MOV «125252,SBE2DB 

MOV «-l.SBE2CC 

MOV 03041. SBE2CR1 

BIT «6IT7,S6E2CR1 

BEQ Bt 



J CHECK THE TRANSFER 



CMP 9BE1DB. 0125252 
BEQ 101 
ERROR «33 



GET URITE PATTERN 

SET FOR 1 XFER 

SET UBE FOR NPR-DATO 1 XFER 

IS THE TRANSFER COMPLETE ? 

NO. THEN UAIT FOR IT TO COMPLETE 



WAS THE TRANSFER CORRECT ? 

YES. THEN GO DO A MAP REGISTER WRITE 

NO. THEN ERROR IN THE TRANSFER 



DO A UNIBUS DEVICE MAP REGISTER URITE CYCLE 

CLEAR MAP REGISTER PAIR 



10* : CLR MAPLOO 

CLR MAPHOO 

MOV OMAPLOO.SBEIBA 

MOV 03.9BE1CR2 

MOV 052525. SBEIDB 

MOV 0-2. aBElCC 

MOV 03041. SBEICRI 

151: BIT 0BIT7.9BE1CR1 

BEQ 15$ 

CHECK THE TRANSFER 



CMP MAPLOO. 052524 

BEQ 16$ 

ERROR *ZZ 

16*: CMP 025. MAPHOO 

BEQ 17* 

ERROR «33 



GET ADDRESS OF MAP REGISTER 

SET UPPER TWO ADDRESS BITS 

GET WRITE PATTERN 

SET FOR 2 XFER 

SET UBE FOR NPR-DATO-1 XFER 

IS THE TRANSFER COMPLETE ? 

NO. THEN UAIT FOR IT TO COMPLETE 



WAS THE TRANSFER CORRECT ? 

YES. THEN GO DO A MAP REGISTER URITE 

NO. THEN ERROR IN THE TRANSFER 

SECOND UORD OK TOO? 

IF SO, BRANCH 

NO. THEN ERROR IN THE TRANSFER 



00 A URITE CYCLE TO BOOT ROM THAT SHOULD CAUSE A TIMEOUT 



17*: MOV 0173000. SBEIBA 

MOV 0-l,9BElCC 

MOV 019».aBElVEC 

MOV 0340.9BE1PSU 

MOV 03041. aBElCRl 

MTPS 0140 

18*: TSTB SBEICRI 

BPL 18* 
NOP 

ERROR *33 

MTPS 0340 

BR 20* 

19*: ADD 04. SP 

BIT 0BIT08.96E1CR2 

BNE 20* 

ERROR *33 



ADDRESS TO URITE TO 
1 CYCLE 

POINT INTERRUPT VECTOR TO PROGRAM 

AT PRIORITY 7 

1 OATO-NPR 

LOWER PRIRITY 

DONE? 

WAIT TILL DONE 

DIDN'T TIMEOUT ON BOOT ROM WRITE 
RAISE PRIORITY 

ADJUST STACK 

NXM SET? 

IF SET. BRANCH 

NXM NOT SET ON BOOT ROM URITE 



00 AN ILLEGAL UNIBUS DEVICE I/O PAGE WRITE CYCLE 

20*: JSR PC.IUBE s CLEAN UP UBE 

MOV 03. Rl ( 00 FOR OCSR . ODR , KMCR 

MOV 0177730, R2 s START WITH OCSR 



KIO 
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SEQ 0127 

T63 UNIBUS OCVICE I/O PAGE URITE CYCLE 



5324 


022200 


012777 


022306 


160010 




MOV 


«30$.aBElVEC 


SET UP TIMEOUT VECTOR 


5325 


022206 


012777 


000340 


160004 




MOV 


«340,96E1PSU 




5326 


022214 


010277 


157766 




21$: 


MOV 


R2.aeElBA 


GET ADDRESS OF THE OIAGN. REGISTER 


5327 


022220 


012777 


000003 


157766 




MOV 


«3.96E1CR2 


SET UPPER TWO ADDRESS BITS 


5326 


022226 


012777 


0S2S2S 


157746 




MOV 


«52525,S6E1DB 


GET WRITE PATTERN 


5329 


022234 


012777 


177777 


157742 




MOV 


« 1,9BE1CC 


SET FOR 1 XFER 


5330 


022242 


052737 


000040 


172516 




BIS 


#BIT5.MMR3 


ENABLE UNIBUS MAPPING 


5331 


022250 


012777 


003041 


157732 




MOV 


#3041 , 8BE1CR1 


SET UBE FOR NPR-OATO-1 XFER 


5332 


022256 


005037 


177776 






CLR 


PSU 


LOWER PRIORITY 


5333 


022262 


032777 


000200 


157720 


251: 


BIT 


«BIT7.9BE1CR1 


IS THE TRANSFER COMPLETE ? 


5334 


022270 


001774 








BEQ 


25$ 


NO, THEN WAIT FOR IT TO COMPLETE 


5335 


022272 


000240 








NOP 




WAIT FOR INTERRUPT 


5336 


022'74 


000240 








NOP 






5337 


02c 't 


104033 








ERROR 


♦ 33 


ERROR - AN ILLEGAL CYCLE DID NOT TIMEOUT 


SWA 

5330 


022i 


106427 


000340 






MTrS 


Po40 




5339 


0223V. 


000407 








BR 


35$ 




5340 


022306 


062706 


000004 




30$: 


ADD 


#4,SP 


ADJUST THE STACK AND GO TO NEXT TEST 


5341 


022312 


032777 


000400 


157674 




BIT 


»BIT08,aeElCR2 


NXM SET? 


5342 


022320 


001001 








BNE 


35» 


IF SET. BRANCH 


5343 


022322 


104033 








ERROR 


♦ 33 


NXM NOT SET ON ILLEGAL REFERENCE 


5344 


022324 


005722 






351: 


TST 


(R2)« 


GET NEXT DIAGNOSTIC REGISTER 


5545 


022326 


004737 


002502 






JSR 


PC.IUBE 


INITIALISE UBE 


5346 


022332 


077150 








SOB 


R1.21I 


DO FOR ALL OF THEM 
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TEST - MAPPING REGISTERS TEST USING UBE 



SEQ 0128 



5348 
5349 
5350 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
535S 
S3S9 
5360 
5361 
5362 
5363 
5364 
5365 
5366 



5367 
5368 
5369 
5370 
5371 
5372 
5373 
5374 
5375 
5376 
5377 
5378 
5379 
5380 
5381 
5382 
5383 
5364 
5385 
5386 
5387 
5388 
5389 
5390 
5391 
5392 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 



022334 
022336 



022342 
022350 
022356 
022364 
022372 
022400 
022404 



022406 
022412 
022416 
022424 
022432 
022436 
022440 
022446 
022450 
022452 
022460 
022466 
022472 
022474 
022502 
022504 
022506 
022510 
022512 
022516 



000004 
004737 



012701 
010177 
012777 
012777 
105777 
100375 
022777 
001401 
104033 
012777 
012777 
105777 
100375 
022777 
001401 
104033 
005021 
005021 
022701 
101337 



.SBTTL TEST - MAPPING REGISTERS TEST USING UBE 

• THIS TEST WRITES DIFFERENT PATTERNS TO MAPPING REGISTERS USING 
«■ OATI AND DATO CYCLES THRU UBE. 



B6NTST 



ENABLE UNIBUS MAPPING 

URITE ALL MAPPING REGISTERS UITH "10" PATTERN 
READ ALL REGISTERS BACK CLEARING THE ONE JUST READ 
IF ANY REGISTER DOES NOT HAVE THE PATTERN 
. ERROR IN URITING TO MAP REGISTERS 
ENDIF 



ENDTST 



002502 



; • *************************************************************** 

:*TEST 64 MAPPING REGISTERS TEST USING UBE 

TST64: SCOPE 

JSR PCIUBE : CLEAN UP UBE 



i 



DO DATO TO ALL 100 REGISTERS UITH 125252 AS PATTERN 



012777 


170200 


157636 


MOV 


«MAPL00.9BE1BA 


THE STARTING ADDRESS 


012777 


177700 


157626 


MOV 


«-100.9BElCC 


64 UORDS TO URITE TO 


012"»77 


125252 


157616 


MOV 


#125252, SBEIOB 


THE PATTERN TO BE WRITTEN 


012777 


000003 


157622 


MOV 


«3.9BE1CR2 


ADDRESS <17-16> 


012777 


003041 


157610 


MOV 


03041 , S6E1CR1 


GO DO OATO'S 


105777 


157604 


1*: 


TSTB 


SBEICRI 


DONE BIT SET? 


100375 






BPL 


1* 


UAIT 



CHECK THAT ALL REGISTERS WRITTEN OK 



170200 






MOV 


OMAPLOO.Rl 


START UITH MAP REGISTER 1 






157570 






MOV 


R1.S6E1BA 


STARTING ADDRESS 






177777 


157560 


2$: 


MOV 


#-l,98ElCC 


. . DO JUST 1 CYCLE 






002041 


157556 




MOV 


«2041, SBEICRI 


. DATI FROM LOU MAP REGISTER 






157552 




3$: 


TSTB 


aBElCRl 


. DONE BIT SET? 










BPL 


3$ 


. IF NOT. UAIT 






125252 


157534 




CMP 


#125252. SBEIOB 


. READ OK? 










BEQ 


4« 


. IF SO. BRANCH 












ERROR 


♦ 33 


. ERROR IN URITING AND READING 


MAP 


REGISTERS 


177777 


157524 


4$: 


MOV 


«-l,a6ElCC 


. NOU DO HIGH MAP REGISTER 






002041 


157522 




MOV 


02041, SBEICRI 


. DATI FROM HIGH REGISTER 






157516 




5$: 


TSTB 


SBEICRI 


. DONE BIT SET? 










BPL 


5$ 


. IF NOT. UAIT 






000052 


157500 




CMP 
BEQ 


052.SBE10B 
6« 


. READ OK? 

. IF SO. BRANCH 












ERROR 


♦ 33 


. ERROR IN URITING AND READING 


MAP 


REGISTERS 






6$: 


CLR 
CLR 


(Rl)^ i 
(Rl)^ 


. CLEAR REGISTER JUST WRITTEN 






170376 






CMP 


0MAPH37.R1 


. ALL DONE? 










BHI 


2» 


. IF NOT. BRANCH 
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TEST UNIBUS DEVICE DATI CYCLE UITH CACHE ENABLED 



SEQ 0129 



5402 

5403 

5404 

5405 

5406 

5407 

5406 

5409 

5410 

5411 

5412 

5413 

5414 

5415 

5416 

5417 

5418 

5419 

5420 

5421 

5422 

5423 

5424 

5425 

5426 

5427 

5428 

5429 

5430 

5431 

5432 

5433 

5434 

5435 

5436 

5437 

5438 

5439 

5440 

5441 

5442 

5443 

5444 

5445 

5446 

5447 

5448 

5449 

5450 

5451 

5452 

5453 

5454 

5455 

5456 



.SBTTL TEST UNIBUS DEVICE DATI CYCLE WITH CACHE ENABLED 

• THIS TEST UILL SEE IF THE CACHE OPERATES CORRECTLY 

• UHEN A UNIBUS DEVICE READ CYCLE IS DONE 



BGNTST 

ENABLE THE CACHE 
ENABLE UNIBUS MAPPING 

CHECK INITIAL SETTING OF THE CACHE VALID BITS 

SELECT THE CACHE VALID BITS 

IF KMCR <15-9> NEQ tBOOOOOOO THEN 

ERROR IN THE CACHE 
ENDIF 

CHECK INITIAL SETTING OF THE CACHE AVAILABILITY BITS 

SELECT THE CACHE AVAILABLE SET BITS 
IF KMCR <14-9> NEQ tBllllll THEN 

ERROR IN THE CACHE 
ENOIF 

GO DO TWO CONSECUTIVE READS 

THE FIRST UILL ALLOCATE SET A 

THE SECOND UILL CAUSE A CACHE HIT IN SET A 



J* 
t* 
* 
* 
* 



LET MAP REGISTER 1 POINT TO LOCATION 2000 
LET BEIBA :- 20000 
LET BE1CR2 0 
LET BEICC :- -2 
SET USE FOR NPR-DATI-1 XFER 
SET OFF THE TRANSFER 



OCTAL BOUNDARY' READ 
CLEAR UPPER 2 ADDRESS BITS 
SET FOR TUO TRANSFERS 



UAIT FOR THE TRANSFER TO COMPLETE 
DISABLE UNIBUS MAPPING 
TURN OFF THE CACHE 
SELECT THE CACHE VALID BITS 

CHECK IF THE CACHE OPERATED CORRECTLY 

J IF KMCR <15-9> NEQ tBlOOlOOO THEN 

J ERROR CACHE DID NOT GET UPDATED CORRECTLY 

ENDIF 

SELECT THE CACHE AVAILBILITY BITS 
IF KMCR <15-9> NEQ tBlOOOlll THEN 
. ERROR CACHE DID NOT OPERATE CORRECTLY 
ENOIF 

ENOTST 



1 1 «*********************************************** 

(•TEST 65 UNIBUS DEVICE CYCLE UITH CACHE ENABLED 



i t< 



NIO 
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T65 UNIBUS DEVICE CYCLF WITH CACHE ENABLED 



SEO 0130 



022520 

5457 

5458 022522 

5459 022526 

5460 022534 

5461 022542 

5462 022544 

5463 022550 

5464 022556 

5465 022564 

5466 022570 

5467 022574 
546S 022602 

5469 022610 

5470 022616 

5471 022624 
5472 

5473 
5474 
5475 
5476 

5477 022624 

5478 022632 

5479 022636 

5480 022644 

5481 022652 
5482 

5483 
5484 

5485 022660 

5486 022666 

5487 022674 
5488 

5489 
5490 

5491 022676 

5492 022702 

5493 022706 

5494 022712 

5495 022714 

5496 022716 

5497 022722 

5498 022730 

5499 022736 

5500 022740 
5501 



000004 

004737 
052737 
032737 
001002 
000137 
012737 
012737 
005037 
005037 
052737 
052737 
042737 
042737 



012737 
005037 
012777 
012777 
012777 



012777 
032777 
001774 



013703 
042703 
022703 
001401 
104033 
005037 
042737 
023777 
001401 
104033 



002502 
000100 
000100 

023122 
160000 
000077 

170200 
170202 
000040 
000400 
000400 
000400 



000200 
170206 
020000 
000000 
177776 



002041 
000200 



177734 
000777 
110000 



172316 
000100 
000202 



177734 
177734 



170374 
170376 



172516 
177730 
177734 
177730 



170204 

157342 
157342 
157324 



157322 
157314 



177734 
157244 



1«: 



SCOPE 






JSR 


PC.IUBE 


i INITIALIZE THE UBE 


BIS 


*6IT6(KMCR 


s ENABLE THE DMA CACHE 


BIT 


#BIT6,KMCR 


; IS THE CACHE PRESENT 7 




If 


TC VFC ^nUTTIJIf LITTU TCCT 

: ir ICS, LUfiiiriuc min itsi 


JMP 


U6EM 


i OTHERWISE. 00 END OF PASS 


MOV 


♦160000. MAPL 37 


1 INITIALIZE MAP REGISTERS 


MOV 


♦77.MAPH37 




CLR 


MAPLOO 




CLR 


MAPHOO 




BIS 


•BIT5.MMR3 


i ENABLE UNIBUS MAPPING 


BIS 


•6IT08.DCSR 


1 ENABLE DIAGNOSTIC MODE 


BIC 


«6IT08,KMCR 


; MAKE SURE THAT VALID BITS 


BIC 


«BIT08,0CSR 


: DISABLE DIAGNOSTIC MODE 



51: 

! GO DO TUO CONSECUTIVE READS STARTING AT A 
I THE FIRST READ UILL ALLOCATE CACHE SET A. 
I UILL CAUSE A CACHE HIT IN SET A 

loi: MOV MOO.HAPLOl i 

CLR MAPHOl 

MOV *20000.aBElBA 

MOV •0.a6ElCR2 

MOV «-2.a6ElCC 



OCTAL BOUNDARY. 
THE SECOND READ 



POINT MAP REGISTER TO LOCATION 200 



SET TRANSFER ADDRESS TO OCTAL 
CLEAR UPPER 2 ADDRESS BITS 
SET UBE FOR TUO TRANSFERS 



BOUNDARY 



GO DO THE TRANSFER 



MOV •204l,aBElCRl 
151: BIT •BIT7,aBElCRl 
BEQ 15* 



i SET UBE FOR NPR-DATI-1 XFER 

i IS THE TRANSFER COMPLETE 7 

J NO. THEN UAIT FOR IT TO BE COMPLETE 



CHECK THE VALID BITS IN THE KMCR 



201: 



MOV KMCR.R3 

BIC •777, R3 

CMP «110000.R3 

BEQ 201 

ERROR «33 

CLR MMR3 

BIC «6IT06.KMCR 

CMP 9»202.86E1DB 

BEQ TST66 

ERROR *33 



i PUT KMCR INTO R3 FOR MASKING 

J MASK OUT BITS 0-8 

, ARE THE BITS SET CORRECTLY 7 

J YES. THEN GO CHECK THE AVAILIBILITY BITS 

: NO. THEN ERROR IN DMA CACHE 

i DISABLE MAPPING 

: AND CACHE 

: DATA READ OK? 

;jIF OK, EXIT TEST 

; OTHERUISE ERROR IN CACHE 



Bll 
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TEST • URONC PARITY AND CACHE 



-JQ 0131 



5503 
5504 
5505 
5506 
5507 
5S0a 
5509 
5510 
5511 
5512 
5513 
5514 
5515 
5516 
5517 
5510 
SS19 



.SBTTL TEST - URONG PARITY AND CACHE 



THIS TEST VERIFIES THAT IF DATA RECIEVED HAS BAD PARITY IT DOES NOT 
GET ALLOCATED IN CACHE. 



BGNTST 



URITE LOCATION UITH BAD PARITY 

USING USE 00 DATI FROM THAT LOCATION 

IF KMCR BITS ARE NOT IN RESET CONDITION THEN 

ERROR 
ENOIF 



ENDTST 

, 

s*TEST 66 



URONG PARITY AND CACHE 





022742 


000004 






TST66: SCOPE 




5520 














5521 


022744 


004737 


002502 




JSR 


PC IU6E 


5522 


022750 


052737 


000005 


172100 


BIS 


«6i T02 ! BITOO . 9*172100 


5523 


022756 


042737 


003740 


172100 


BIC 


«3740.a«172100 


5524 


022764 


005037 


000000 




CLR 


a«o 


5525 


022770 


042737 


000004 


172100 


BIC 


«BIT02.8«1 72100 


5526 


022776 


052737 


000040 


172516 


BIS 


#BIT05.MMR3 


5527 


023004 


042737 


000100 


177734 


BIC 


#6IT06.KMCR 


5526 


023012 


052^37 


000100 


177734 


BIS 


«6IT06.KMCR 


5529 


023020 


012737 


000000 


170204 


MOV 


♦O.MAPLOl 


5530 


023026 


005037 


170206 




CLR 


MAPHOl 


5531 


023032 


012777 


020000 


157146 


MOV 


«20000.a6ElBA 


5532 


023040 


012777 


000000 


157146 


MOV 


«0.8BE1CR2 


5533 


023046 


012777 


177777 


157130 


MOV 


«-1.8BElCC 


5534 














5535 










s GO DO THE TRANSFER 


5536 














5537 


023054 


012777 


002041 


157126 


MOV 


«2041.S8E1CR1 


5538 


023062 


032777 


000200 


157120 


15»: BIT 


«6IT7.aBElCRl 


5539 


023070 


001774 






BEG 


15» 


5540 


023072 


032737 


177000 


177734 


BIT 


#177000. KMCR 


5541 


023100 


001401 






BEQ 


161 


5542 023102 


104032 






ERROR 


*32 


5543 


023104 


005037 


000000 




16«: CLR 


a«o 


5544 


023110 


005037 


172516 




CLR 


MMR3 


5545 


023114 


0427?? 


000001 


172100 


BIC 


«BIT00.a«172100 


5546 














5547 














5548 


023122 








UBEM: 





023122 

5549 023124 

5550 023130 

5551 023132 

5552 023136 



000004 
005737 
001015 
005737 
001412 



001206 
0C1720 



CLEAR UBE 

SET URONG PARITY IN MEMORY CSR 
CLEAR CHECK BITS 

URITE LOCATION 0 UITH UPONG PARITY 
CLEAR URONG PARITY 
ENABLE MEMORY MAPPING 
DISABLE JUST TO MAKE SURE 
ENABLE CACHE 

POINT MAP REGISTER TO LOCATION 200 

SET TRANSFER ADDRESS TO OCTAL BOUNDARY 
CLEAR UPPER 2 ADDRESS BITS 
SET UBE FOR TUO TRANSFERS 



SET UBE FOR NPR-OATI-1 XFER 

IS THE TRANSFER COMPLETE ? 

NO. THEN UAIT FOR IT TO BE COMPLETE 

UAS ALLOCATED? 

IF NOT. BRANCH 

IF UAS. REPORT ERROR 

REURITE 0 UITH RIGHT PARITY 

CLEAR MAPPING ENABLED 



;*TEST 67 DUMMY TEST 

: •********************•••*•••**•••••***••••**•*•****•*****••*•••* 

TST67: SCOPE 

TST IPASS 8 FIRST PASS? 

BNE »EOP ; IF NOT. GOTO »EOP 

TST PMIS s IF NO PMI MEMORY 

BEQ lEOP s PRINT MESSAGE EVERY PASS 



KTJll-B DIAGNOSTIC 
T67 DUMMY TEST 
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SEQ 0132 



5553 023140 012737 000024 

5554 023146 032737 000017 

5555 023154 001403 

5556 023156 012737 000012 
5557 

5558 
5559 
5560 
5561 



023220 
177734 

023220 



MOV 
BIT 
BEQ 
MOV 



*24,»ENDCT 
»17.S«KMCR 
$E0P 

»12.»EN0CT 



PRINT EVERY 20 PASSES 

ONLY IF NO UNIBUS MEMORY 
PRINT EVERY lOTH 



END OF PASS ROUTINE 



.SBTTL END OF PASS ROUTINE 
^INCREMENT THE PASS NUMBER («PASS) 

^INDICATE ENO-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
♦IF THERES A MONITOR GO TO IT 
♦IF THERE ISN'T JUMP TO RESTART 











lEOP: 


















SCOPE 








WwVw r 








CLR 


iTSTNM 


s;ZERO THE TEST NUMBER 


023172 


005037 


001164 






CLR 


♦TIMES 


;iZERO THE NUMBER OF ITERATIONS 




W^K W f 


WXCVv 






INC 


♦ PASS 


INCREMENT THE PASS NUMBER 






X vvvvv 


O0 1 POI^ 




BIC 


#100000, $PASS 


iiDON'T ALLOW A NEG. NUMBER 




WJ<JC ■ 








DEC 


(PC)* 


s : LOOP 7 










♦EOPCT : 


.UORD 


1 






0030S^ 








BGT 


♦OOAGN 


;sYES 




0137^7 
vxc r ij r 








MOV 


(PC)*.8(PC)* 


:: RESTORE COUNTER 










lENDCT : 


.UORD 


1 




QPXPPP 


VC> «IC. AC 








♦EOPCT 






OP'^PPA 


005737 








TST 


UQUIET 


:N0 MESSAGE IF RUNNING UFD QUIET MODE 


VC 


001037 








BNE 


!♦ 




t\p%p%p 




VC JC**V 






TYPE 


. 30009 ♦ 


;;TYPE ASCIZ STRING 


093?36 

VC 


wv^w » 








BR 


30008$ isGET OVER THE ASCIZ 
.ASCIZ <12><1S>/EN0 PASS »/ 










ii 30009$: 


np'iPK^ 

VC^C^v 








30008$ : 








023256 


013746 


001206 






MOV 


♦PASS.-(SP) 


;!SAVE $PASS FOR TYPEOUT 
Si TYPE PASS NUMBER 


023262 


104405 








TYPOS 




;sG0 TYPE--DECIMAL ASCII UITH SIGN 


023264 


104401 


023272 






TYPE 


.30011$ 


:iTYPE ASCIZ STRING 


023270 


000412 








BR 


30010$ 


s;GET OVER THE ASCIZ 
TOTAL ERRORS:/ 










s {30011 


1: 


.ASCIZ / 


023316 








300101 : 








023316 


013746 


001112 






MOV 


$ERTTL.-(SP) 


;;SAVE $ERTTL FOR TYPEOUT 
i {TOTAL NUMBER OF ERRORS 


023322 


104405 








TYPOS 




::G0 TYPE- -DECIMAL ASCII UITH SIGN 


023324 


104401 


001175 






TYPE 


. $CRLF 


SiTYPE CARRIAGE RETURN. LINE FEED 


023330 








1«: 








023330 


013700 


000042 




IGET42: 


MOV 


9*42. RO 


s.-GET MONITOR ADDRESS 


023334 


001405 








BEQ 


$ OOAGN 


;: BRANCH IF NO MONITOR 


023336 


000005 








RESET 




{.•CLEAR THE UORLD 


023340 


004710 






«EN0A0: 


JSR 


PC.(RO) 


::G0 TO MONITOR 


023342 


000240 








NOP 




::SAVE ROOM 


023344 


000240 








NOP 




: sFOR 


023346 


000240 








NOP 




i iACTll 


023350 








lOOAGN: 








023350 


000137 








JMP 


a(PC)» 


i {RETURN 


023352 


003320 






IRTNAD: 


.UORD 


RESTART 




023354 


377 


377 


000 


tENULL: 


• BYTE 


-l.-l.O 


{{NULL CHARACTER STRING 



5562 



.EVEN 



KTJll-B DIAGNOSTIC 

END Of PASS ROUTINE 

5563 
5564 
5565 
5566 
5567 
5568 
5569 
5570 



Dll 
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SCOPE ENABLE HALT-ON-BREAK BETWEEN TESTS, SO APT CAN CATCH IT. DISABLE HOB 
AT END SO TESTS UILL NOT BE INTERRUPTED BY APT BREAKS UHICH CAUSES CERTAIN 
TESTS TO REPORT ERRORS WHEN THERE ARE REALLY NONE. 

.SBTTL SCOPE HANDLER ROUTINE 

t*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT UILL INCREMENT 
:*AND LOAD THE TEST NUMBERC $TSTNM} INTO THE DISPLAY REG.(DISPLAY<7:0>) 
s*AND LOAD THE ERROR FLAG ($ERFLG} INTO OISPLAY<15:08> 
s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 



SEQ 0133 



;*SW14-1 
i*SUll-l 
!«SU09-1 
:*SU08-1 
!*CALL 



LOOP ON TEST 
INHIBIT ITERATIONS 
LOOP ON ERROR 
LOOP ON TEST IN SWR<5:0> 











;♦ 


SCOPE 


; sSCOPE-IOT 


023360 








1 SCOPE: 








023360 


104407 








CKSUR 




;TEST FOR CHANGE IN SOFT-SWR 


023362 


052737 


001000 


177520 




BIS 


WIT09.BCSR ! 


ENABLE HOB 


023370 


032777 


040000 


155542 


1$: 


BIT 


«6IT14,aSUR ; 


;LOOP ON PRESENT TEST? 


023376 


001117 








BNE 


$OVER ; 


:YES IF SU14-1 










:«««««START OF 


CODE FOR THE XOR TESTER#0### 


023400 


000416 






IXTSTR: 


BR 


61 : 


;IF RUNNING ON THE "XOR" TESTER CHANGE 
:THIS INSTRUCTION TO A "NOP" (N0P-240) 


023402 


013746 


000004 






MOV 


a#ERRVEC.-(SP) i 


:SAVE THE CONTENTS OF THE ERROR VECTOR 


023406 


012^37 


023426 


000004 




MOV 


«5$.a«ERRVEC 


jSET FOR TIMEOUT 


023414 


005737 


177060 






TST 


S«l 77060 i 


;TIME OUT ON XOR? 


023420 


012637 


000004 






MOV 


(SP)».a#ERRVEC ; 


{RESTORE THE ERROR VECTOR 


023424 


000466 








BR 


tSVLAO : 


sGO TO THE NEXT TEST 


023426 


022626 






5$: 


CMP 


(SP)*.(SP)» J 


J CLEAR THE STACK AFTER A TIME OUT 


023430 


012637 


000004 






MOV 


(SP)*.a»ERRVEC : 


: RESTORE THE ERROR VECTOR 


023434 


000426 








BR 


7» ; 


sLOOP ON THE PRESENT TEST 


023436 








6$: :«»0««END OF 


CODE FOR THE XOR 


TESTER*«»»» 


023436 


032777 


000400 


155474 




BIT 


«BIT08.aSUR : 


;LOOP ON SPEC. TEST? 


023444 


001407 








BEQ 


2« s 


:BR IF NO 


023446 


017746 


155466 






MOV 


aSWR.-(SP} ; 


:SET DESIRED TEST NUM. FROM SWR 


023452 


042716 


000300 






BIC 


«ISWRMK.(SP} : 


i STRIP AWAY UNDESIRED BITS 


023456 


122637 


001102 






CMPB 


(SP)*.»TSTNM 1 


iON THE RIGHT TEST? 


023462 


001465 








BEQ 


tOVER i 


5 BR IF YES 


023464 


105737 


001103 




2$: 


TSTB 


$ERFLG : 


:HAS AN ERROR OCCURRED? 


023470 


001421 








BEQ 


3$ 


;BR IF NO 


023472 


123737 


001115 


001103 




CMPB 


$ERMAX,$ERFLG 


.MAX. ERRORS FOR THIS TEST OCCURRED? 


023500 


101015 








BHI 


3$ 


iBR IF NO 


023502 


032777 


001000 


155430 




BIT 


«BIT09,SSUR 


;LOOP ON ERROR? 


023510 


001404 








BEQ 


41 


sBR IF NO 


023512 


013737 


001110 


001106 


7*: 


MOV 


ILPERR.«LPADR ; 


sSET LOOP ADDRESS TO LAST SCOPE 


023520 


000446 








BR 


«OVER 




023522 


105037 


001103 




4$: 


CLRB 


♦ERFLG ! 


;ZERO THE ERROR FLAG 


023526 


005037 


001164 






CLR 


♦TIMES : 


: CLEAR THE NUMBER OF ITERATIONS TO MAKE 


023532 


000415 








BR 


1< ; 


{ESCAPE TO THE NEXT TEST 


023534 


032777 


004000 


155376 


3$: 


BIT 


«BITll,aSUR : 


{INHIBIT ITERATIONS? 


023542 


001011 








BNE 


1« : 


jBR IF YES 


023544 


005737 


001206 






TST 


IPASS : 


ilF FIRST PASS OF PROGRAM 


023550 


001406 








BEQ 


1* i 


s INHIBIT ITERATIONS 



Ell 
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SCOPE HANDLER ROUTINE 












023SS2 


005237 


001104 




INC 


♦ICNT J 


; INCREMENT ITERATION COUNT 


023556 


023737 


001164 


001104 


CMP 


♦TIMES. IICNT : 


i CHECK THE NUMBER OF ITERATIONS MADE 


023564 


002024 






BGE 


♦OVER i 


iBR IF MORE ITERATION REQUIRED 


023566 


012737 


000001 


001104 


1*: MOV 


^.♦ICNT : 


i REINITIALIZE THE ITERATION COUNTER 


023574 


013737 


023710 


001164 


MOV 


♦MXCNT. ♦TIMES ; 


iSET NUMBER OF ITERATIONS TO DO 


023602 


105237 


001102 




$SVLAD: INCB 


♦TSTNM J 


(COUNT TEST NUMBERS 


023606 


4 4 V^V^ 

113737 


001102 


001204 


MOVE 


♦TSTNM.^TESTN j 


;SET TEST NUMBER IN APT MAILBOX 


023614 


All 

011637 


001106 




MOV 


(SP).^LPADR ; 


iSAVE SCOPE LOOP ADDRESS 


At VX. tA 

023620 


011637 


001110 




MOV 


(.SP).^LPERR : 


:SAVE ERROR LOOP ADDRESS 


023624 


005037 


001166 




CLR 


♦ESCAPE : 


: CLEAR THE ESCAPE FROM ERROR ADDRESS 


023630 


112 '3 f 


000001 


001115 


MOVB 


«1 . ♦ERMAX : 


:ONLY ALLOU ONE(l) ERROR ON NEXT TEST 


02363O 


013 / / / 


001102 


155276 


♦OVER: MOV 


♦ TSTNM. aOISPL AY ; 


(DISPLAY TEST NUMBER 


023644 


A1 ^ 

013 /Id 


001106 




MOV 


♦LPAOR.(SP) : 


(FUDGE RETURN ADDRESS 


023650 




001102 


000022 


CMP8 


♦TSTNM. #18. 




A^V£C£ 

023656 


1 ATA f T 

103413 






BLO 


!♦ 






led IC 1 


001102 


000033 


CMPB 


♦TSTNM. #27. 




023666 


103404 






BLO 


2* 




023670 


123727 


001102 


000065 


CMPB 


♦TSTNM. #53. 




023676 


103403 






BLO 


1^ 




023700 


042737 


001000 


177520 


2«: BIC 


#1000.9»BCSR .-TESTS 18-26 AND 53-54 REQUIRE HALT -ON BREAK TO 












:BE DISABLED TO PREVENT ERRONEOUS ERROR REPORTS 


023706 


000002 






RTI 






023710 


000001 






♦MXCNT: 1 




(MAX. NUMBER OF ITERATIONS 


5571 








.SBTTL TYPE 


ROUTINE 





{♦ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE UITH A 0 BYTE. 
{♦THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
{♦NOTEl: ♦NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

( ♦NOTES : ♦FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

(♦N0TE3: ♦FILLC CONTAINS THE CHARACTER TO FILL AFTER. 

{♦ 

{♦CALL: 

{♦1) USING A TRAP INSTRUCTION 

{♦ TYPE .MESADR { {MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 

{♦OR 

(♦ TYPE 
: ♦ MESADR 



{♦ 



023712 


105737 


001157 




♦TYPE: 


TSTB 


♦TPFLG 




{IS THERE A TERMINAL? 


023716 


100002 








BPL 


1^ 




(BR IF YES 


023720 


000000 








HALT 






(HALT HERE IF NO TERMINAL 


023722 


000430 








BR 


3^ 




(LEAVE 


023724 


010046 






!♦: 


MOV 


RO.-(SP) 


({SAVE RO 


023726 


017600 


000002 






MOV 


a2(SP).R0 


(GET ADDRESS OF ASCIZ STRING 


023732 


122737 


000001 


001220 




CMPB 


#APTENV.^ENV 


-{RUNNING IN APT MODE 


023740 


001011 








BNE 


62 ♦ 


t{NO.GO CHECK FOR APT CONSOLE 


023742 


132737 


000100 


001221 




BITB 


#APTSP00L . ♦ENVM 


{SPOOL MESSAGE TO APT 


023750 


001405 








BEQ 


62 ♦ 


{NO. 60 CHECK FOR CONSOLE 


023752 


010037 


023762 






MOV 


R0.61^ 


{SETUP MESSAGE ADDRESS FOR APT 


023756 


004737 


026376 






JSR 


PC.^ATY3 




SPOOL MESSAGE TO APT 


023762 


000000 






61^: 


.UORD 


0 




MESSAGE ADDRESS 


023764 


132737 


000040 


001221 


62^: 


BITB 


#APTCSUP.^ENVM 




APT CONSOLE SUPPRESSED 


023772 


001003 








BNE 


60^ 




YES. SKIP TYPE OUT 


023774 


112046 






2i: 


MOVB 


(RO)*.-(SP) 




PUSH CHARACTER TO BE TYPED ONTO STACK 


023776 


001005 








BNE 


4^ 




BR IF IT ISN'T THE TERMINATOR 


024000 


005726 








TST 


(SP)» 




IF TERMINATOR POP IT OFF THE STAC v 


024002 


012600 






bOi: 


MOV 


(SP)».RO ( 




RESTORE RO 
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024004 


062716 


000002 




31 : 


ADD 




024010 


000002 








RTI 




024012 


122716 


000011 




4$ : 


CMPB 


OHT , ( SP) 


0P4016 


001430 








BEQ 


8) 


024020 


122716 


000200 






CMPB 


OCRLF (SP) 


024024 


001006 








BNE 


5* 


024026 


005726 








TST 


(SP)« 


024030 


104401 








TYPE 




024032 


001175 








<CRLF 




024034 


105037 


024242 






CLRB 


$CHARCNT 


024040 


000755 








BR 


2$ 


024042 


004737 


024124 




5$: 


JSR 


PC. ♦TYPEC 


024046 


123726 


001156 




6$: 


CMPB 


♦FILLC.CSP)* 


024052 


001350 








BNE 


2% 


024054 


013746 


001154 






MOV 


♦NULL.-(SP) 


024060 


105366 


000001 




7»: 


OECB 


l(SP) 


024064 


002770 








BLT 


61 


024066 


004737 


024124 






JSR 


PC. ITYPEC 


024072 


105337 


024242 






OECB 


ICHARCNT 


024076 


000770 








BR 


71 










: HORIZONTAL TAB 


PROCESSOR 


024100 


112716 


000040 




8$: 


MOVB 


#' ,(SP) 


024104 


004737 


024124 




9$: 


JSR 


PC. ITYPEC 


024110 


132737 


000007 


024242 




BITB 


«7. ICHARCNT 


024116 


001372 








BNE 


91 


024120 


005726 








TST 


(SP)* 


024122 


000724 








BR 


21 


024124 








♦TYPEC: 






024124 


105777 


155014 






TSTB 


SITKS 


024130 


100022 








BPL 


101 


024132 


017746 


155010 






MOV 


SITKB.-(SP) 


024136 


042716 


177600 






BIC 


#177600. (SP) 


024142 


122716 


000023 






CMPB 


#IX0FF.(SP) 


024146 


001012 








BNE 


1021 


024150 








1011: 






024150 


105777 


154770 






TSTB 


aiTKS 


024154 


100375 








BPL 


1011 


024156 


117716 


154764 






MOVB 


SITKB.CSP) 


024162 


042716 


177600 






BIC 


«177600.(SP) 


024166 


122716 


000021 






CMPB 


«IXON,(SP) 


024172 


001366 








BNE 


1011 


024174 








102$: 






024174 


005726 








TST 


(SP)* 


024176 








101: 






024176 


105777 


154746 






TSTB 


SUPS 


024202 


100375 








BPL 


101 


024204 


116677 


000002 


154740 




MOVB 


2(SP).aiTPB 


024212 


122766 


000015 


000002 




CMPB 


#CR,2(SP) 


024220 


001003 








BNE 


11 


024222 


105037 


024242 






CLRB 


ICHARCNT 


024226 


000406 








BR 


ITYPEX 


024230 


122766 


000012 


000002 


1$: 


CMPB 


#LF.2(SP) 


024236 


001402 








BEQ 


$TYPEX 


024240 


105227 








INCB 


(PC)* 


024242 


000000 






ICHARCNT: .UORD 


0 


024244 


000207 






ITYPEX: 


RTS 


PC 



SEQ 0135 



; ! ADJUST RETURN PC 
: : RETURN 

. i BRANCH IF <HT> 

i ; BRANCH IF NOT <CRLF> 

: :POP <CR><LF> EQUIV 
::TYPE A CR AND LF 

: CLEAR CHARACTER COUNT 
:GET NEXT CHARACTER 
:G0 TYPE THIS CHARACTER 
j;IS IT TIME FOR FILLER CHARS. 7 
tIF NO GO GET NEXT CHAR. 
:GET « OF FILLER CHARS. NEEDED 
;AND THE NULL CHAR. 
sDOES A NULL NEED TO BE TYPED? 
:BR IF NO- -GO POP THE NULL OFF OF STACK 
J GO TYPE A NULL 
:00 NOT COUNT AS A COUNT 
:LOOP 



» REPLACE TAB WITH SPACE 
TYPE A SPACE 
BRANCH IF NOT AT 
TAB STOP 

J POP SPACE OFF STACK 
J GET NEXT CHARACTER 



isCHAR IN KYBO BUFFER? 
i:BR IF NOT 
:GET CHAR 

! STRIP EXTRANEOUS BITS 
sUAS CHAR XOFF 
:BR IF NOT 

IS WAIT FOR CHAR 

:GET CHAR 
; STRIP IT 
iUAS IT XON? 
i;BR IF NOT 

IS FIX STACK 

IS WAIT UNTIL PRINTER IS READY 

{LOAD CHAR TO BE TYPED INTO DATA REG. 
sis CHARACTER A CARRIAGE RETURN? 
i BRANCH IF NO 

{YES- -CLEAR CHARACTER COUNT 
sEXIT 

:IS CHARACTER A LINE FEED? 

s BRANCH IF YES 

s COUNT THE CHARACTER 

s CHARACTER COUNT STORAGE 



MJOOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJOOOl 

s MJOOOl 
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BINARY TO OCTAL (ASCII) AND TYPE 

5572 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

;;*************************************************************** 

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
: ♦OCTAL (ASCII) NUMBER AND TYPE IT. 

J ♦♦TYPOS- --ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
{♦CALL: 



♦ MOV NUM.-(SP) :jNUMBER TO BE TYPED 

♦ TYPOS J J CALL FOR TYPEOUT 

♦ .BYTE N ;;N«1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

♦ .BYTE M ssM-1 OR 0 

♦ ::1-TYPE LEADING ZEROS 

♦ ;:0-SUPPRESS LEADING ZEROS 
♦ 



♦♦TYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

♦♦TYPOS OR ♦TYPOC 
♦CALL: 

♦ MOV NUn,-(SP) ii NUMBER TO BE TYPED 

♦ TYPON ;;CALL FOR TYPEOUT 
♦ 

♦♦TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
♦CALL: 











; ♦ 


MOV 


NUM.-(SP) 


t; NUMBER TO BE TYPED 










; ♦ 


TYPOC 




; J CALL FOR TYPEOUT 


024246 


017646 


000000 




♦TYPOS: 


MOV 


a(SP),-(SP) 


8 5 PICKUP THE MODE 


024252 


116637 


000001 


024471 




MOVB 


1(SP).^0FILL 


jjLOAD ZERO FILL SUITCH 


024260 


112637 


024473 






MOVB 


(SP)*.*0M0DE*1 


;;NUMBER OF DIGITS TO TYPE 


024264 


062716 


000002 






AAA 

ADO 


#2.(SP) 


i: ADJUST RETURN ADDRESS 




UUU400 








PO 
On 


♦TYPON 




024272 


112737 


000001 


024471 


♦TYPOC: 


MOVB 


#1.^0F1LL 


;jSET THE ZERO FILL SUITCH 


024300 


112737 


000006 


024473 




MOVB 


«6.^0M0DE«1 


;tSET FOR SIX(6) DIGITS 
5; SET THE ITERATION COUNT 


024306 


112737 


000005 


024470 


♦TYPON: 


MOVB 


#5.^0CNT 


024314 


010346 








MOV 


R3.-(SP) 


i;SAVE R3 


024316 


010446 








MOV 


R4.-(SP) 


cSAVE R4 


024320 


010546 








MOV 


R5.-(SP) 


i : SAVE RS 


024322 


113704 


024473 






MOVB 


♦0M00E*1.R4 


;iGET THE NUMBER OF DIGITS TO TYPE 


024326 


005404 








NEG 


R4 




024330 


062704 


000006 






ADO 


«6.R4 


;: SUBTRACT IT FOR MAX. ALLOWED 


024334 


110437 


024472 






MOVB 


R4.^0M0DE 


!:SAVE IT FOR USE 


024340 


113704 


024471 






MOVB 


♦0FILL,R4 


•sGET THE ZERO FILL SUITCH 


024344 


016605 


000012 






MOV 


12(SP}.R5 


PICKUP THE INPUT NUMBER 


024350 


005003 








CLR 


R3 


•J CLEAR THE OUTPUT UORO 


024352 


006105 






!♦: 


ROL 


R5 


! ROTATE MSB INTO "C" 


024354 


000404 








BR 


3^ 


:G0 00 MSB 


024356 


006105 






2^: 


ROL 


R5 


;FORM THIS DIGIT 


024360 


006105 








ROL 


R5 




024362 


006105 








ROL 


RS 




024364 


010503 








MOV 


R5.R3 




024366 


006103 






3^: 


ROL 


R3 


J GET LSB OF THIS DIGIT 


024370 


105337 


024472 






DECB 


♦ OMODE mTYPE THIS DIGIT? 


024374 


100016 








BPL 


?♦ i 


:BR IF NO 


024376 


042703 


177770 






BIC 


0177770, R3 ; 


:GET RID OF JUNK 


024402 


001002 








BNE 


4^ : 


sTEST FOR 0 


024404 


005704 








TST 


R4 i 


; SUPPRESS THIS 0? 


024406 


001403 








BEQ 


5^ i 


;BR IF YES 


024410 


005204 






4^: 


INC 


R4 : 


; DON'T SUPPRESS ANYMORE O'S 


024412 


052703 


000060 






BIS 


0'0.R3 : 


;MAKE THIS DIGIT ASCII 


024416 


052703 


000040 




5^: 


BIS 


#' .R3 ! 


.•MAKE ASCII IF NOT ALREADY 
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BINARY TO OCTAL (ASCII) ANO TYPE 



SEU 0137 



5573 



024422 


110337 


024466 


MOVB 


R3.8« 


i ;SAVE FOR TYPING 


024426 


1044C1 


024466 


TYPE 


.8< 


::G0 TYPE THIS DIGIT 


024432 


105337 


024470 7$: 


OECB 


♦ OCNT 


J s COUNT BY 1 


024436 


003347 




BGT 


2$ 


: :BR IF MORE TO DO 


024440 


002402 




BLT 


6* 


iiBR IF DONE 


024442 


005204 




INC 


R4 


; {INSURE LAST DIGIT ISN'T A BLANK 


024444 


000744 




BR 


2i 


::G0 DO THE LAST DIGIT 


024446 


012605 


6«: 


MOV 


(SP)* .R5 


J {RESTORE R5 


024450 


012604 




MOV 


(SP)*,R4 


: {RESTORE R4 


024452 


012603 




MOV 


(SP)«.R3 


{{RESTORE R3 


024454 


016666 


000002 000004 


MOV 


2(SP),4(SP) 


{{SET THE STACK FOR RETURNING 


024462 


012616 




MOV 


(SP)*.(SP) 




024464 


000002 




RTI 




{ {RETURN 


024466 


000 


8«: 


.BYTE 


0 


{{STORAGE FOR ASCII DIGIT 


024467 


000 




.BYTE 


0 


{{TERMINATOR FOR TYPE ROUTINE 


024470 


000 


»0CNT: 


.BYTE 


0 


{{OCTAL DIGIT COWTER 


024471 


000 


♦OFILL: 


.BYTE 


0 


{ {ZERO FILL SWITCH 


024472 


000000 


^OMODE: 


.UORO 


0 


; ! NUMBER OF DIGITS TO TYPE 






.SBTTL 


CONVERT 


BINARY TO DECIMAL AND TYPE ROUTINE 



024474 

024474 010046 

024476 010146 

024500 010246 

024502 010346 

024504 010546 

024506 012746 020200 

024512 016605 000020 

024516 100004 

024520 005405 

024'>22 112766 000055 000001 

024530 005000 

024532 012703 024710 

024536 112723 000040 

024542 005002 

024544 016001 024700 

024550 160105 

024552 002402 

024554 005202 

024556 000774 

024560 060105 

024562 005702 

024564 001002 

024566 105716 

024570 100407 

024572 106316 

024574 103003 

024576 116663 000001 177777 

024604 052702 000060 



{ {***************«**************************•*****«************** 

{♦THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
{♦SIGNED DECIMAL (ASCII) NUMBER ANO TYPE IT. DEPENDING ON UHETIHER THE 
:*NU1BER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
{♦BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
{♦REPLACED WITH SPACES. 
{ ♦CALL : 

{♦ MOV NUM,-(SP) 

{ ♦ TYPOS 
♦TYPOS: 

MOV 



RO.-(SP) 

MOV Rl.-CSP) 

MOV R2.-(SP) 

MOV R3.-(SP) 

MOV R5.-(SP) 

MOV #20200. -(SP) 

MOV 20(SP).R5 

BPL 1» 

NEG R5 

MOVB #'-.l(SP) 

CLR RO 

MOV «IDBLK,R3 

MOVB «' .(R3)* 

2$ : CLR R2 

MOV «0TBL(R0),R1 

3«: SUB Rl.RS 

BLT 4» 

INC R2 

BR 31 

4$: ADO Rl.RS 

TST R2 

BNE 5$ 

TSTB (SP) 

BMI 7$ 

5$: ASLB (SP) 

BCC 6$ 

MOVB 1(SP).-1(R3) 

6«: BIS «'0.R2 



{PUT THE BINARY NUMBER ON THE STACK 
{GO TO THE ROUTINE 

PUSH RO ON STACK 
PUSH Rl ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R5 ON STACK 
SET BLANK SWITCH AND SIGN 
GET THE INPUT NUMBER 
BR IF INPUT IS POS. 
MAKE THE BINARY NUMBER POS. 
HAKE THE ASCII NUMBER NEG. 
ZERO THE CONSTANTS INDEX 
SETUP THE OUTPUT POINTER 
SET THE FIRST CHARACTER TO A BLANK 
CLEAR THE BCD NUMBER 
{GET THE CONSTANT 
{FORM THIS BCD DIGIT 
I BR IF DONE 

{INCREASE THE BCD DIGIT BY 1 

ADO BACK THE CONSTANT 

CHECK IF BCD OIGIT-0 

FALL THROUGH IF 0 

STILL DOING LEADING O'S? 

BR IF YES 

MSO? 

BR IF NO 

YES --SET THE SIGN 

MAKE THE BCD DIGIT ASCII 
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CONVERT BINARY 


TO DECIMAL AND TYPE ROUTINE 






024610 




AAA AAA 74 . 


BIS 


#' .R2 


024614 


110223 




MOVB 


P2.(R3)« 


024616 


AAK79A 




TST 


IRO)* 


024620 


sJcWc / 


AAAA1 A 


CMP 


R0.»10 


024624 






BLT 


21 


024626 






BGT 


81 


024630 






MOV 


R5.R2 


024632 






BR 


61 


024634 




Of : 


TSTB 


(SP)* 


024636 






BPL 


91 


024640 




177777 1 7777fc 
± f f f f f ± f f f to 


MOVB 


-1(SP).-2(R3) 


024646 






CLRB 


(R3) 


024650 






MOV 


(SP)*.R5 


024652 






MOV 


(SP)*.R3 


024654 






MOV 


(SP)*.R2 


024656 






MOV 


(SP)*.R1 


024660 






MOV 


(SP)*.RO 


024662 


104401 


024710 


TYPE 


. lOBLK 


0P4666 


016666 


000002 000004 


MOV 


2(SP).4(SP) 


024674 


012616 




MOV 


(SP)*.(SP) 


024676 


000002 




RTI 




024700 


023420 


tOTBL: 


10000. 




024702 


001750 




1000. 




024704 


000144 




100. 




024706 


000012 




10. 




024710 




tOBLK: 


.BLKU 


4 



SEQ 0138 



MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

GO DO THE NEXT DIGIT 

GO TO EXIT 

GET THE LSD 
iGO CHANGE TO ASCII 
lUAS THE LSD THE FIRST NON-ZERO? 

BR IF NO 

YES --SET THE SIGN FOR TYPING 
SET THE TERMINATOR 
STACK INTO R5 
STACK INTO R3 
STACK INTO R2 
STACK INTO Rl 
STACK INTO RO 



j;POP 
J POP 
J POP 
J POP 
POP 
NOW 



TYPE THE NUMBER 



5574 



ADJUST THE STACK 



is RETURN TO USER 



.SBTTL TTY INPUT ROUTINE 

;*•**••*••••*••*•*•••••***••***•*•••**•••••••••*•*••***********• 

ENABL LSB 

♦SOFTWARE SUITCH REGISTER CHANGE ROUTINE. 

•ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND UILL 

♦SERVICE THE TEST FOR CHANGE IN SOFTWARE SUITCH REGISTER TRAP CALL 

♦WHEN OPERATING IN TTY FLAG MODE. 



024720 


022737 


000176 


001140 


ICKSUR: 


CMP 


«SUREG.SUR t 


:IS THE SOFT-SUR SELECTED? 


024726 


001074 








BNE 


15« : 


: BRANCH IF NO 


024730 


105777 


154210 






TSTB 


9$TKS ; 


;CHAR THERE? 


024734 


100071 








BPL 


15* J 


:IF NO, DON'T UAIT AROUND 


024736 


117746 


154204 






MOVB 


aiTKB.-(SP) 5 


:SAVE THE CHAR 


024742 


042716 


177600 






BIC 


#tC177,(SP) ; 


; STRIP-OFF THE ASCII 


024746 


022726 


000007 






CMP 


#7.(SP)« s 


s IS IT A CONTROL G? 


024752 


001062 








BNE 


15« : 


(NO. RETURN TO USER 


024754 


123727 


001134 


000001 




CMPB 


lAUTOB.M : 


:ARE UE RUNNING IN AUTO-MOOE? 


024762 


001456 








BEQ 


151 : 


{BRANCH IF YES 


024764 


104401 


025455 






TYPE 


. ICNTLG : 


sECHO THE CONTROL -G (tG) 


024770 


104401 


025462 




IGTSUR: 


TYPE 


. IMSUR i 


:TYPE CURRENT CONTENTS 


024774 


013746 


000176 






MOV 


SUREG.-CSP) 


iSAVE SUREG FOR TYPEOUT 


025000 


104402 








TYPOC 




:G0 TYPE--OCTAL ASCIKALL DIGITS) 


025002 


104401 


025473 






TYPE 


. IMNEU .' 


: PROMPT FOR NEU SUR 


025006 


005046 






191: 


CLR 


-CSP) s 


: CLEAR COUNTER 


025010 


005046 








CLR 


-CSP) ! 


(THE NEU SUR 


025012 


105777 


154126 




7$: 


TSTB 


SITKS : 


:CHAR THERE? 


025016 


100375 








BPL 


7* J 


5 IF NOT TRY AGAIN 


025020 


117746 


154122 






MOVB 


a*TKB.-(SP) ; 


;PICK UP CHAR 


025024 


042716 


177600 






BIC 


OtC177.(SP) ! 


:MAKE IT 7-BIT ASCII 


025030 


021627 


000025 




9$: 


CMP 


(SP).025 J 


:IS IT A CONTROL -U? 


025034 


001005 








BNE 


10$ : 


s BRANCH IF NOT 
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SEQ 0139 



025036 


104401 


025450 






TYPE 


, «CNTLU 


025042 


062706 


000006 




20$: 


ADO 


06. SP 


025046 


000757 








BR 


19$ 


025050 


021627 


000015 




10(: 


CMP 


(SP).#15 


025054 


001022 








BNE 


16$ 


025056 


005766 


000004 






TST 


4(SP) 


025062 


001403 








BEQ 


11$ 


0250f t 


016677 


000002 


154046 




MOV 


2(SP}.9SUR 


025'' 2 


062706 


000006 




11 «: 


ADD 


*6.SP 


025 6 
02S.02 


104401 


001175 




14«: 


TYPE 


.$CRLF 


123727 


001135 


000001 




CMPB 


$ INT AG, 01 


025110 


001003 








BNE 


15$ 


025112 


012777 


000100 


154024 




MOV 


«100.a$TKS 


025120 


000002 






151: 


RTI 




025122 


004737 


024124 




16$: 


JSR 


PC.$TYPEC 


025126 


021627 


000060 






CMP 


(SP).«60 


025132 


002420 








BLT 


18$ 


025134 


021627 


000067 






CMP 


(SP),»67 


025140 


003015 








BGT 


181 


025142 


042726 


000060 






BIC 


»60.(SP)« 


025146 


005766 


000002 






TST 


2(SP) 


025152 


001403 








BEQ 


17$ 


025154 


006316 








ASL 


(SP) 


025156 


006316 








ASL 


(SP) 


025160 


006316 








ASL 


(SP) 


025162 


005266 


000002 




171: 


INC 


2(SP) 


025166 


056616 


177776 






BIS 


-2(SP).(SP) 


025172 


000707 








BR 


7$ 


025174 


104401 


001174 




18«: 


TYPE 


. $QUES 


025200 


000720 








BR 


20$ 



YES. ECHO CONTROL -U (tu) 
IGNORE PREVIOUS INPUT 
LET'S TRY IT AGAIN 
IS IT A <CR>? 
BRANCH IF NO 

YES. IS IT THE FIRST CHAR? 

BRANCH IF YES 

SAVE NEW SUR 

CLEAR UP STACK 

ECHO <CR> AND <LF> 

RE-ENABLE TTY KBD INTERRUPTS? 

BRANCH IF NOT 

RE -ENABLE TTY KBD INTERRUPTS 

RETURN 

ECHO CHM 

CHAR < 0? 
s BRANCH IF YES 
sCHAR > 7? 
: BRANCH IF YES 
; STRIP -OFF ASCII 

IS THIS THE FIRST CHAR 

BRANCH IF YES 

NO. SHIFT PRESENT 
CHAR OVER TO MAKE 
ROOM FOR NEU ONE. 

KEEP COUNT OF CHAR 

SET IN NEU CHAR 

GET THE NEXT ONE 

TYPE ?<CR><LF> 

SIMULATE CONTROL -U 



.OSABL 
;:**** 
j*THIS 
:*CALL 
I* 
t* 
i* 



LSB 
ROUTINE 



*************************************************** 

UILL INPUT A SINGLE CHARACTER FROM THE TTY 



ROCHR 

RETURN HERE 



025202 


011646 






$R0CHR: 


MOV 


(SP).-(SP) 


025204 


016666 


000004 


000002 




MOV 


4(SP),2(SP) 


025212 


105777 


153726 




1$: 


TSTB 


9$TKS 


025216 


100375 








BPL 


1$ 


025220 


117766 


153722 


000004 




M0V6 


a$TKB.4(SP) 


025226 


042766 


177600 


000004 




BIC 


0tC<177>.4(SP) 


025234 


026627 


000004 


000023 




CMP 


4(SP).#23 


025242 


001013 








BNE 


3$ 


025244 


105777 


153674 




2$: 


TSTB 


S$TKS 


025250 


100375 








BPL 


2$ 


025252 


117746 


153670 






MOVB 


a$TKB.-(SP) 


025256 


042716 


177600 






BIC 


#tC177.(SP) 


025262 


022627 


000021 






CMP 


(SP)*.#21 


025266 


001366 








BNE 


2$ 


025270 


000750 








BR 


1$ 


025272 


026627 


000004 


000021 


3$: 


CMP 


4(SP),»«X0N 


025300 


001744 








BEQ 


1$ 


025302 


026627 


000004 


000140 




CMP 


4(SP).#140 


025310 


002407 








BLT 


4$ 



s INPUT A SINGLE CHARACTER FROM THE TTY 
{CHARACTER IS ON THE STACK 
;UITH PARITY BIT STRIPPED OFF 

PUSH DOWN THE PC 
SAVE THE PS 
UAIT FOR 
A CHARACTER 
READ THE TTY 
GET RID OF JUNK IF ANY 
lis IT A CONTROL -S? 
BRANCH IF NO 
UAIT FOR A CHARACTER 
LOOP UNTIL ITS THERE 
GET CHARACTER 
MAKE IT 7-BIT ASCII 
IS IT A CONTROL -Q? 
IF NOT DISCARD IT 
YES. RESUME 

:IS IT A RANDOM XON? ;RAN001 
BRANCH IF YES jRANOOl 
IS IT UPPER CASE? 
BRANCH IF YES 
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SEQ 0140 



5575 



025312 


026627 


000004 


000175 




CMP 


4(SP).#175 


i IS IT A SPECIAL CHAR? 


025320 


003003 








BGT 




, {BRANCH IF YES 


025322 


042766 


000040 


000004 




BIC 


040.4(SP) 


:MAKE IT UPPER CASE 


025330 


000002 






4$: 


RTI 




iGO BACK TO USER 










; ; *************************************************************** 










;«THIS 


ROUTINE 


WILL INPUT A STRING FROM THE TTY 










i *CALL : 
















;* 


RDLIN 




, jINPUT A STRING FROM THE TTY 










; * 


RETURN 


HERE 


: ADDRESS OF FIRST CHARACTER WILL BE 










; * 






;:TERMINATOR WILL BE A BYTE OF ALL 0' 


025332 


010346 






tROLIN: 


MOV 


R3.-(SP) 


, :SAVE R3 


025334 


012703 


025440 




14: 


MOV 


#<TTYIN.R3 


(GET ADDRESS 


025340 


022703 


025450 




21: 


CMP 


#ITTYIN*8. ,R3 


! BUFFER FULL? 


025344 


101405 








BLOS 


41 liBR IF YES 


025346 


104410 








ROCHR 




:G0 READ ONE CHARACTER FROM THE TTY 


025350 


112613 








MOVB 


(SP)*.(R3) s;GET CHARACTER 


025352 


122713 


000177 




101: 


CMPB 


#177. (R3) 


lis IT A RUBOUT 


025356 


001003 








BNE 


3$ 


sSKIP IF NOT 


025360 


104401 


001174 




41: 


TYPE 


.IQUES 


{TYPE A • ?' 


025364 


000763 








BR 


11 


s CLEAR THE BUFFER AND LOOP 


025366 


111337 


025436 




31 : 


MOVB 


(R3).9I 


{ECHO THE CHARACTER 


025372 


104401 


025436 






TYPE 


.91 




025376 


122723 


000015 






CMPB 


«15.(R3)* 


{CHECK FOR RETURN 


025402 


001356 








BNE 


2« 


{LOOP IF NOT RETURN 


025404 


105063 


177777 






CLRB 


-1(R3) 


{CLEAR RETURN (THE 15) 


025410 


104401 


001176 






TYPE 


.♦LF 


{TYPE A LINE FEED 


025414 


012603 








MOV 


(SP}*.R3 


{RESTORE R3 


025416 


011646 








MOV 


(SP).-(SP} i: AO JUST THE STACK AND PUT ADDRESS OF 


025420 


016666 


000004 


000002 




MOV 


4(SP}.2(SP) 11 FIRST ASCII CHARACTER ON IT 


025426 


012766 


025440 


000004 




MOV 


#ITTYIN.4(SP) 




025434 


000002 








RTI 




* RETURN 


025436 


000 






91: 


.BYTE 


0 


i STORAGE FOR ASCII CHAR. TO TYPE 


025437 


000 








.BYTE 


0 


(TERMINATOR 


025440 








ITTYIN: 


.BLKB 


8. 1 


{RESERVE 8 BYTES FOR TTY INPUT 


025450 


136 


125 


015 


ICNTLU: 


.ASCIZ 


/tU/<15><12> i 


{CONTROL "U" 


025453 


012 


000 












025455 


136 


107 


015 


ICNTLG: 


.ASCIZ 


/tG/<lS><i2> i 


{CONTROL "G" 


025460 


012 


000 












025462 


015 


012 


123 


inSUR: 


.ASCIZ 


<15><12>/SUR • / 




025465 


127 


122 


040 










025470 


075 


040 


000 










025473 


040 


040 


116 


IMNEU: 


.ASCIZ 


/ NEU - / 




025476 


105 


127 


040 










025501 


075 


040 


000 











025504 011646 

025506 016666 000004 000002 

025514 010046 

025516 010146 

025520 010246 



.SBTTL READ AN OCTAL NUMBER FROM THE TTY 

: .*************************************************************** 

{*THIS ROUTINE UILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
{♦CHANGE IT TO BINARY. 
{*CALL: 

8* 

{* 

IRDOCT: 



RDOCT 

RETURN HERE 



MOV 
MOV 
MOV 
MOV 
MOV 



(SP).-(SP) 
4CSP).2(SP) 
RO. (SP) 
Rl.-(SP) 
R2, (SP) 



READ AN OCTAL NUMBER 

LOU ORDER BITS ARE ON TOP OF THE STACK 
HIGH ORDER BITS ARE IN IHIOCT 
PROVIDE SPACE FOR THE 
INPUT NUMBER 
PUSH RO ON STACK 
PUSH Rl ON STACK 
PUSH R2 ON STACK 
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READ AN OCTAL NUMBER FROM THE TTY 



5576 





1 t\AA 1 1 




If : 


Dm Tkj 




:iREAD AN ASCIZ LINE 




0 1 3iLOA 






nuv 


f CD ^ ^ DA 












LLN 


D1 
HI 


. .CI CAD AATA LIADA 










n o 

LLK 


DO 






1 1 snAfk 




31 • 
cf : 


MOWD 




. .DTCVIID TUTC rUADArTCD 










DtU 




. . TC 7CDA fCT Al IT 










A CI 














Qni 


R9 












R1 


i i 




VVWA vc 






Qni 


R9 




006301 








R1 


t t •>» 




006109 






Qni 


R9 






0497 1 6 


177770 






atr7 fcpt 

W ' I* ■ • X Or J 












Ann 


( QR ^ A R 1 


t . Ann TN TMTQ nTflTT 










RR 




• • 1 nno 

• « LUUr 


025562 


005726 




3t • 


TST 


(59")* 


1 iCLFAN TFRMTNATQR FROM CTACK 


025564 


010166 


000012 




MOV 


R1.12(SP) 


isSAVE THE RESULT 


025570 


010237 


025604 




MOV 


R2.IHI0CT 




025574 


012602 






MOV 


(SP)*.R2 


jsPOP STACK INTO R2 


025576 


012601 






MOV 


(SP)*.R1 


SjPOP STACK INTO Rl 


025600 


012600 






MOV 


(SP)»,RO 


jiPOP STACK INTO RO 


025602 


000002 






RTI 




J * RETURN 


025604 


000000 




♦HIQCT: 


.UORO 


0 


si HIGH ORDER BITS GO HERE 








.SBTTL 


READ A 


DECIMAL NUMBER 


FROM THE TTY 



j«THIS ROUTINE UILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND 
i*CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS 
!*ARE READ A FOLLOUEO BY A CARRIAGE RETURN-LINE FEED UILL BE TYPED. 
s«THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE 
i*USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS 
;*POSITIVE 32767 TO NEGATIVE 32768. 
.•*CALL: 











RDOEC 


tsREAD A DECIMAL NUMBER 








s * 


RETURN 


HERE 


1 {NUMBER IS ON TOP OF THE STACK 


025606 


011646 




tROOEC: 


MOV 


(SP).-(SP) 


li PROVIDE SPACE FOR 


025610 


016666 


000004 


000002 


MOV 


4(SP).2(SP) 


liTHE INPUT NUMBER 


025616 


010046 






MOV 


RO.-(SP) 


! iPUSH RO ON STACK 


025620 


010146 






MOV 


Rl.-CSP) ;;PUSH Rl ON STACK 


025622 


010246 






MOV 


R2,-CSP) J ; PUSH R2 ON STACK 


025624 


104411 




1«: 


ROLIN 




; J READ AN ASCIZ LINE 


025626 


012600 






MOV 


(SP)»,RO 


! J ADDRESS OF 1ST CHAR. 


025630 


010037 


025754 




MOV 


R0,6I 


iSAVE INCASE OF BAD INPUT 


025634 


005046 






CLR 


-(SP) 


: CLEAR DATA UORD 


025636 


005002 






CLR 


R2 


jSIGN SET POSITIVE 


025640 


122710 


000055 




CMPB 


#' -.(RO) 


J SEE IF A MINUS SIGN UAS TYPED 


025644 


001001 






BNE 


2* 


:BR IF NO MINUS SIGN 


025646 


112002 






MOVB 


(R0)^.R2 


J SAVE FOR LATER USE 


025650 


112001 




2«: 


MOVB 


(RO)^.Rl 


; PICKUP THIS CHARACTER 


025652 


001424 






BEQ 


3* 


.•GET OUT IF ZERO 


025654 


122701 


000060 




CMPB 


O'O.Rl 


jMAKE SURE THIS CHARACTER 


025660 


003032 






BGT 


5t i 


:IS A DIGIT BETUEEN 0 £ 9 


025662 


122701 


000071 




CMPB 


0'9.R1 




025666 


002427 






BLT 


5» 




025670 


032716 


170000 




BIT 


«tC7777.(SP) i 


.•DON'T LET NUMBER GET TO BIG 


025674 


001024 






BNE 


5» ! 


:BR IF NUMBER UOULO OVERFLOU 


025676 


006316 






ASL 


(SP) : 


i*2 



Mil 
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READ A DECInAL 


NUMBER FROM THE TTY 








025700 


011646 




MOV 


(SP).-(SP) 


:iSAVE FOR LATER 


025702 


AAA1 1 & 




ASL 


(SP) 


::*4 


025 'O* 


AAA1 1 & 




ASL 


(SP) 


: :*8. 


0257UO 


UOc616 




ADO 


(SP)«,(SP) 


! 1*10. 


025 'lO 


1 A3^ 1 & 
lUc416 




BVS 


5< 


:i0VERFL0U ISN'T ALLOUEO 


025 f Ic 


16c f 01 


AAAACA 


SUB 


•'O.Rl 


STRIP AUAY THE ASCII JUNK 


Oc5 f ID 


AAA! 1 j: 

WOU116 




ADO 


Rl.(SP) 


i iAOD IN THIS DIGIT 


Oc5 ' cv 


1 nOA 1 3 
Ivc^le 




BVS 


51 


iiOVERFLOU ISN'T ALLOUED 




VVU r 3e 




BR 


21 


I : LOOP 


Uc3 ' 


\AJO r Vc 




TST 


R2 


:: CHECK IF NUMBER IS NEG 


Vc3 • cD 


nni Am 

UUl^Ul 




BEQ 


41 


::6R IF NO 


A3V7Vn 






NEG 


(SP) 


i : YES- -NEGATE THE NUMBER 


A3<7'V9 


Vic ODD 


AAAA 13 A 1 • 


MOV 


(SP)*.12(SP) 


J ; SAVE THE RESULT 


A3V7V4k 


At 9t.no 




MOV 


(SP)*.R2 


jsPOP STACK INTO R2 




012601 




MOV 


(SP)*,R1 


:iP0P STACK INTO Rl 


vc5 


012600 




MOV 


(SP)*.RO 


iiPOP STACK INTO RO 




000002 




RTI 




1 (RETURN 


025746 


005726 


5«: 


TST 


(SP)* 


i (CLEAN PARTIAL NUMBER FROM 


025750 


105010 




CLRB 


(RO) 


mSET a TERMINATOR 


025752 


104401 




TYPE 




mTYPE the INPUT UP TO BAD 


025754 


000000 


6«: 


.UORO 


0 


> {POINTER GOES HERE 


025756 


104401 


001174 


TYPE 


.IQUES 


..»?" «CR" 6"LF" 


025762 


000720 




BR 


1« 


liTRY AGAIN 



SEQ 0142 



5577 
5578 
5579 
5580 



{ENABLE HOB IN ERROR ROUTINE SINCE MOST LIKELY IT IS CURRENTLY DISABLED. 
.SBTTL ERROR HANDLER ROUTINE 



j*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
j*SAVt THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
i*ANO GO TO ERTYPE ON ERROR 

i*THE SUITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 











i*SUlS- 


1 


HALT ON ERROR 












i*SU13- 


1 


INHIBIT ERROR TYPEOUTS 










i*SU10- 


1 


BELL ON ERROR 












i *SU09- 


1 


LOOP ON ERROR 












i •CALL 
















i* 


ERROR 


*N i(ERROR-EMT AND N-ERROR ITEM NUMBER 


025764 








(ERROR: 








025764 


005737 


002624 






TST 


UOUIET 


J (TEST FOR USER-QUIET MODE 


025770 


001403 








BEQ 


91 


} (BRANCH IF FIELD-SERVICE MODE 


025772 


005000 








CLR 


RO 


iiIN CASE RO HAS A #3 IN IT (tC) 


025774 


004737 


026206 






JSR 


PC. ABORT 


J : TEST FOR ABORT CONDITION 


026000 








9«: 








026000 


104407 








CKSUR 




{(TEST FOR CHANGE IN SOFT-SUR 


026002 


052737 


001000 


177520 




BIS 


«6IT09.BCSR 


(ENABLE 


026010 


105237 


001103 




7«: 


INCB 


lERFLG 


(iSET THE ERROR FLAG 


026014 


001775 








BEQ 


7« 


({DON'T LET THE FLAG GO TO ZERO 


026016 


013777 


001102 


153116 




MOV 


ITSTNM.SOISPLAY 


{(DISPLAY TEST NUMBER AND ERROR FLAG 


026024 


032777 


002000 


153106 




BIT 


«BIT10.aSUR 


: {BELL ON ERROR? 


026032 


001402 








BEQ 


11 


::N0 - SKIP 


026034 


104401 


001170 






TYPE 


. IBELL 


iiRING BELL 


026040 


005237 


001112 




11: 


INC 


lERTTL 


{{COUNT THE NUMBER OF ERRORS 


026044 


011637 


001116 






MOV 


(SP).«ERRPC 


((GET ADDRESS OF ERROR INSTRUCTION 


026050 


162737 


000002 


001116 




SUB 


»2.IERRPC 




026056 


117737 


153034 


001114 




MOVB 


9IERRPC.«ITkMB 


{{STRIP AND SAVE THE ERROR ITEM CODE 


026064 


032777 


020000 


153046 




BIT 


«6IT13.aSUR 


{(SKIP TYPEOUT IF SET 
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SEQ 0143 



ssai 



026072 


001004 








BNE 


201 


; ;SKIP TYPEOUTS 


026074 


004737 


026346 






JSR 


PC. ER TYPE 


Si GO TO USER ERROR ROUTINE 


026100 


104401 


001175 






TYPE 


.ICRLF 




026104 








201: 








026104 


122737 


000001 


001220 




CMPB 


«APTENV.IENV 


t: RUNNING IN APT MODE 


026112 


001007 








BNE 


21 


liNO.SKIP APT ERROR REPORT 


026114 


113737 


001114 


026126 




MOVB 


IITEM6.21I 


;iSET ITEM NUMBER AS ERROR NUMBER 


026122 


004737 


026406 






uSR 


PC.IATY4 


s (REPORT FATAL ERROR TO APT 


026126 


000 






211; 


.BYTE 


0 




026127 


000 








.BYTE 


0 




026130 


000777 






221: 


BR 


221 


itAPT ERROR LOOP 


026132 


005777 


153002 




21: 


TST 


asuR 


it HALT ON ERROR 


026136 


100002 








BPL 


31 


It SKIP IF CONTINUE 


026140 


000000 








HALT 




{{HALT ON ERROR! 


026142 


104407 








CKSUR 




liTEST FOR CHANGE IN SOFT-SUR 


026144 


032777 


001000 


152766 


31: 


BIT 


•BIT09,8SUR 


tiLOOP ON ERROR SUITCH SET? 


026152 


001402 








BEQ 


41 


iiBR IF NO 


026154 


013716 


001110 






MOV 


ILPERR.CSP) 


i (FUDGE RETURN FOR LOOPING 


026160 


005737 


001166 




41: 


TST 


lESCAPE 


it CHECK FOR AN ESCAPE ADDRESS 


026164 


001402 








BEQ 


51 


it BR IF NONE 


026166 


013716 


001166 






MOV 


lESCAPE. (SP) 


it FUDGE RETURN ADDRESS FOR ESCAPE 


026172 








51: 








026172 


022737 


023340 


000042 




CMP 


•IEN0A0.S«42 


ttACT-11 AUTO-ACCEPT? 


026200 


001001 










61 


{{BRANCH IF NO 


026202 


000000 








HALT 




{{YES 


026204 








61: 








026204 


000002 








RTI 




it RETURN 










.SBTTL 


ABORT 


ROUTINE FOR LCP/ORION UFO MODE 


026206 


005737 


002622 




ABORT : 


TST 


UFDFLG 


{TEST FOR USER FRIENDLY MODE 


026212 


001454 








BEQ 


NOABRT 


}IF NOT UFD THEN CONTINUE NORMAL OPERATION 


026214 


020027 


000032 






CMP 


R0.«32 


lis IT A tZ ? 


026220 


001443 








BEQ 


ABORT Z 


{JUST GO BACK TO CHAIN IF IT IS (NO ERROR) 


026222 


020027 


000003 






CMP 


R0.#3 


lis IS A tC ? 


026226 


001404 








BEQ 


ABORTC 


{BR TO LOAD tC ON XXDP* STACK (NO ERROR) 


026230 


005737 


002624 






TST 


UQUIET 


{TEST FOR USER -QUIET MODE 


026234 


001443 








BEQ 


NOABRT 


{IF FIELD-SERVICE MODE. CONTINUE NORMAL OPERATION 
1 BECAUSE FIELD- SERVICE MODE DOES NOT QUIT ON ERROR 


026236 


000422 








BR 


ABORTE 


•SET DRSERR THEN LEAVE 


026240 


013737 


002616 


000030 


ABORTC : 


MOV 


SAV30.30 


{RESTORE EMT LOCATION (30) 


026246 


013737 


002620 


000032 




MOV 


SAV32.32 


{RESTORE EMT PRIORITY LOCATION (32) 


026254 


104043 








EMT 


♦ 43 


{GET XXDP STACK LOC. INTO RC FROM MONITOR 


026256 


005720 






11: 


TST 


(RO)* 


iFINO END OF STACK 


026260 


001376 








BNE 


11 




026262 


112760 


000057 


177777 




MOVB 


#'/.-l(RO) 


{LOAD SLASH OVER ZERO 


026270 


112720 


000136 






MOVB 


#'t.(RO)» 


(LOAD UPAPROU 


026274 


112720 


000103 






MOVB 


•'C,(RO)* 


(LOAD C 


026300 


105010 








CLRB 


(RO) 


(MAKE NEU END TO STACK 


026302 


000412 








BR 


ABORTZ 


:NOU LEAVE 


026304 


013737 


002616 


000030 


ABORTE: 


MOV 


SAV30.30 


{RESTORE EMT LOCATION (30) 


026312 


013737 


002620 


000032 




MOV 


SAV32.32 


iRESTORE EMT PRIORITY LOCATION (32) 


026320 


104042 








EMT 


♦ 42 


iGET DCA LOCATION INTO RO FROM MONITOR 


026322 


012760 


177777 


000042 




MOV 


»-1.42(R0) 


;SET A -1 INTO LOCATION DRSERR IN MONITOR 


026330 


013700 


000042 




AB3RTZ: 


MOV 


9*42. RO 


;ANO PUT THE MONITOR RETURN ADDRESS IN RO 


026334 


005037 


000042 






CLR 


S#42 


; CLEAR MONITOR RETURN FLAG 


026340 


000137 


023340 








iENOAO 


{RETURN TO MONITOR-DO NOT PUSH STACK HERE 


026S44 


000207 






NOABRT : 


RTS 


PC 


;IF NOTUFD RETURN TO MAINLINE 










THIS 


ROUTINE LOADS TEST NUMBER AND ERROR NUMBER AND THEN CALLS tERRTYP 



B12 
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ABORT ROUTINE ^OR LCP/ORION UFO MODE 



SEQ 0144 



S5S6 





X X O 1 O 1 




WX ' xo 


CQT Ypr 


nOVB 


ITSTNM.TEST 


» (lOAD TEST NUMBER 




no f O 1 




WX f x^ 




MOVB 


IITEMB.ERRNUM 


i 1 AND ERROR NUMBER 












JSR 


PC.IERRTYP 


iiGO REPORT ERRORS 












RTS 


PC 


J J RETURN 










• 9D I I L 


APT COmUNICATIONS ROUTINE 


Vk w J * V 


1127S7 






lATYl • 

wn \ IX! 


novB 


•I.IFFLG 


Si TO REPORT FATAL ERROR 


VCw J • w 


112757 


wwwx 




wn I 1 J • 


MOVB 


•I.IMFLG 


;jTO TYPE A MESSAGE 




000401 








BR 


♦ ATYC 




v» w 


112757 


OOOOOl 


0966 




MOVB 


•l.»FFLG 


iiTO ONLY REPORT FATAL ERROR 


















0PM 14 


010046 








MOV 


RO.-(SP) 


:sPUSH RO ON STACK 




010146 








MOV 


Rl.-(SP) 


stPUSH Rl ON STACK 


026420 


105757 


026652 

VS WW 






TSTB 


♦ MFLG 


! (SHOULD TYPE A MESSAGE? 


0PCi424 


001450 








BEQ 


51 


Si IF NOT: BR 




122757 


wwvx 


001220 
wxccv 




CMPB 


«APTENV,$ENV 


s i OPERATING UNDER APT? 


0264 S4 


001051 








BNE 


3» 


itIF NOT: BR 


0264 S6 


152757 


000100 

WV A W 


001221 

W ACC A 




BITB 


»APT SPOOL, lENVM 


ss SHOULD SPOOL MESSAGES? 


026444 


001425 








BEQ 


3$ 


ssIF NOT: BR 


026446 


017600 


000004 

VWW^ 






MOV 


»4(SP).R0 


ssGET MESSAGE ADDR. 




062766 


000002 

wvwc 


000004 




ADO 


•2.4(SP) 


Si BUMP RETURN ADDR. 




005757 


001200 

WAS w 




11 • 

A V • 


TST 


♦MSGTYPE 


ss SEE IF DONE U/ LAST XMISSION? 




001575 

WX ^ 1 ^ 








BNE 


1$ 


i sIF NOT: UAIT 


026466 

\/K W~ W 


010037 


001214 






MOV 


RO. IMSGAD 


s sPU f ADDR IN MAILBOX 


026472 


105720 






2$ : 


TSTB 


(RO)* 


isPINO END OF MESSAGE 


026474 


001376 








BNE 


2) 




026476 


163700 


001214 






SUB 


IMSGAD.RO 


ss SUB START OF MESSAGE 


026502 


006200 








ASR 


RO 


ssGET MESSAGE LNGTH IN UORDS 


026504 


010037 


001216 






MOV 


R0,»MS6LGT 


ssPUT LENGTH IN MAILBOX 


026510 


012737 


000004 


001200 




rtOV 


♦4,1 MSGTYPE 


8 {TELL APT TO TAKE MSG. 


026516 


000413 








BR 


51 




026520 


017657 


000004 


026544 


31 : 


MOV 


a4(SP).4l 


isPUT MSG ADDR IN JSR LINKAGE 


026526 


062766 


000002 

W W Wfc 


000004 




ADD 


•2,4(SP) 


ttBlfflP RETURN ADDRESS 


026 5 S4 


013746 


177776 






MOV 


177776. -(SP) 


stPUSH 177776 ON STACK 




004737 

WW^ • <J • 


025712 






JSR 


PC, ♦ TYPE 


iiCALL TYPE MACRO 


0P6944 


000000 

www 






4$ : 


.UORD 


0 












51 • 










105757 


026634 




lOi • 

A W T • 


TSTB 


»FFLG 


iiSHOULD REPORT FATAL ERROR? 


VCv W 


001416 

WA~ A w 








BEQ 


121 


iilF NOT: BR 




005737 

Wrf • <J » 


001220 






TST 


lENV 


i (RUNNING UNDER APT? 


026560 


001413 

WA~ A *J 








BEQ 


121 


tilF NOT: BR 


026562 


005737 

Wrf • «* • 


001200 

WW AC w 




Hi • 

A A ▼ • 


TST 


♦MSGTYPE 


> (FINISHED LAST MESSAGE? 


026566 


001375 

WA ^ f ^ 








BNE 


11) 


ssIF NOT: UAIT 


026570 


017637 


000004 


001202 

VW AC VC 




MOV 


84(SP),*FATAL 


s sGET ERROR • 


026576 


062766 

WWC • WW 


000002 

WW W V 'i/C 


000004 

WW i/WW^ 




ADO 


#2.4(SP) 


iiBUMP RETURN ADDR. 


026604 


005237 

W^S w • 


001200 

W AC WW 






INC 


♦MSGTYPE 


isTELL APT TO TAKE ERROR 


026610 


105037 


026634 




12$ : 


CLRB 


♦FFLG 


ijCLEAR FATAL FLAG 












CLRB 


♦LFLG 


s (CLEAR LOG FLAG 


026620 


105037 


026632 






CLRB 


♦MFLG 


s (CLEAR MESSAGE FLAG 


026624 


012601 








MOV 


(SP)*.R1 


s (POP STACK INTO Rl 


026626 


012600 








MOV 


(SP)*.RO 


8 8 POP STACK INTO RO 


026630 


000207 








RTS 


PC 


8 8 RETURN 


026632 


000 






IMFLG: 


.BYTE 


0 


ssMESSG. FLAG 


026633 


000 






♦L'LG: 


.BYTE 


0 


8 (LOG FLAG 


026634 


000 






»FFLG: 


.BYTE 


0 


ssFATAL FLAG 












.EVEN 








000200 






APTSIZE 


-200 







C12 
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APT COnnUNICATIONS ROUTINE 



SEQ 0145 



5587 



000001 
000100 
000040 



5588 



026636 



026636 


104401 


001175 




TYPE 


tCRLF 


026642 


010046 






MOV 


RO - ( SP ) 


026644 


005000 






CLR 


RO 


026646 


153700 


001114 




BISB 


aOilTEMB RO 


096652 


001004 






BNE 




026654 


013746 


001116 




MOV 


iERRPC -CSP) 


026660 


104402 






TYPOC 




026662 


000426 






BR 


6$ 


026664 


005300 




1$ : 


DEC 


RO 


026666 


006300 






ASL 


RO 


026670 


006300 






ASL 


RO 


026672 


006300 






ASL 


RO 


026674 


062700 


001324 




ADD 


«IERRT6.R0 


026700 


012037 


026710 




MOV 


(R0)*,2I 


026704 


001404 






BEQ 


31 


026706 


104401 






TYPE 




026710 


000000 




21: 


.UORO 


0 


026712 


104401 


001175 




TYPE 


.ICRLF 


026716 


012037 


026726 


3$: 


MOV 


(R0)*.4I 


026722 


001404 






BEQ 


51 


026724 


104401 






TYPE 




026726 


000000 




41: 


.WORD 


0 


026730 


104401 


001175 




TYPE 


.ICRLF 


026734 


011000 




51: 


MCV 


(RO).RO 


026736 


001004 






BNE 


7< 


026740 


012600 




61: 


MOV 


(SP)«.RO 


02674? 


104401 


001175 




TYPE 


. ICRLF 


026746 


000207 






RTS 


PC 


026750 






7»: 






026750 


013046 






MOV 


a(RO)».-(SP) 


026752 


104402 






TYPOC 




026754 


005710 






TST 


(RO) 


026756 


001770 






BEQ 


6t 


026760 


104401 


026766 




TYPE 


.8$ 


026764 


000771 






BR 


7$ 


026766 


cto 


040 


000 81 : 


.ASCIZ 


/ / 










.EVEN 










.S8TTL 


TRAP DECODER 



026772 010046 

026774 016600 000002 

027000 005740 



APTENV-001 

APTSPOOL-100 

APTCSUP-040 

.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 

i*THIS ROUTINE USES THE "ITEM CONTROL BYTE" (IITEMB) TO OETERfllNE UHICH 
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE" (lERRTB). 
s*ANO REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
♦ERRTYP: 

("CARRIAGE RETURN" C "LINE FEED" 
:SAVE RO 

i PICKUP THE ITEM INDEX 

:IF ITEM NUMBER IS ZERO, JUST 
sTYPE THE PC OF THE ERROR 
J SAVE IERRPC FOR TYPEOUT 
ERROR ADDRESS 

:G0 TYPE--OCTAL ASCIKALL DIGITS) 
;GET OUT 

s ADJUST THE INDEX SO THAT IT WILL 
: UORK FOR THE ERROR TABLE 



iFORM TABLE POINTER 

: PICKUP "ERROR MESSAGE" POINTER 

iSKIP TYPEOUT IF NO POINTER 

J i TYPE THE "ERROR MESSAGE" 
5 "ERROR MESSAGE" POINTER GOES HERE 
{"CARRIAGE RETURN" £ "LINE FEED" 
; PICKUP "DATA HEADER" POINTER 

J! SKIP TYPEOUT IF 0 
J TYPE THE "DATA HEADER" 
;"DATA HEADER" POINTER GOES HERE 
{"CARRIAGE RETURN" 6 "LINE FEED" 

jsPICKUP "DATA TABLE" POINTER 

isGO TYPE THE DATA 
(RESTORE RO 

: "CARRIAGE RETURN" £ "LINE FEED" 
(RETURN 

(SAVE 8(R0)» FOR TYPEOUT 

sGO TYPE- -OCTAL ASCIKALL DIGITS) 

(IS THERE ANOTHER NUMBER? 

:6R IF NO 

(TYPE TU0(2) SPACES 
(LOOP 

(TU0(2) SPACES 



; *************************************************************** 

*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
*AND USE IT TO INDEX THROUGH THE TRAP TABLE ^ OR THE STARTING ADDRESS 
*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
*G0 TO THAT ROUTINE. 



$TRAP: 



MOV 
MOV 
TST 



RO.-(SP) 
2(SP).R0 
-(RO) 



SAVE RO 

GET TRAP ADDRESS 
BACKUP BY 2 



KTJU B DIAGNOSTIC 
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SEQ 0146 



027002 
027004 
027006 
027012 

027014 
027016 
027024 



111000 
006300 
016000 
000200 

011646 
016666 
000002 



027026 



000004 000002 



MOVB 
ASL 
MOV 
RTS 

iiTHIS IS USE 
ITRAP2: MOV 
MOV 
RTI 

.SBTTL TRAP 



(RO).RO isGET RIGHT BYTE OF TRAP 

RO : : POSITION FOR INDEXING 

$TRPAD(RO),RO ::INDEX TO TABLE 
RO ::G0 TO ROUTINE 

TO HANDLE THE "GETPRI" MACRO 

(SP).-(SP) sjMOVE THE PC OOUN 

4(SP).2(SP) ::MOVE THE PSU DOWN 

I : RESTORE THE PSU 

TABLE 



5589 



027056 012''37 027216 000024 

027064 012737 000340 000026 

027072 010046 

027074 010146 

027076 010246 

027100 010346 

027102 010446 

027104 010546 

027106 01''746 152026 

027112 010637 027222 

027116 012737 027130 000024 

027124 000000 

027126 000776 



*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
♦BY THE "TRAP" INSTRUCTION. 
ROUTINE 

iTRAP2 

TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NLWBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 
GET SOFT-SUR SETTING 
TEST FOR CHANGE IN SOFT-SUR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUf.BER FROM ITY 
READ A DECIMAL NUMBER FROM TTY 

POUER DOUN AND UP POUTINES 
• • ************************ ************************************** 

: POUER DOUN ROUTINE 



027026 


027014 


$TRPAD: .UORO 


iTRAP2 




027030 


023712 


♦ TYPE 


; iCALL-TYPE 


TRAP»1( 104401) 


027032 


024272 


♦TYPOC 


i .-CALL "TYPOC 


TRAP ♦2(104402) 


027034 


024246 


4TYP0S 


s ! CALL-TYPOS 


TRAP*3( 104403) 


027036 


024306 


♦TYPON 


! sCALL-TYPON 


TRAP*4( 104404) 


027040 


024474 


HYPOS 


; sCALL-TYPDS 


TRAP ♦5(104405) 


027042 


024770 


♦GTSUR 


s :CALL-GTSUR 


TRAP* 6(104406) 


027044 


024720 


KKSUR 


i iCALL-CKSUR 


TRAP* 7(104407) 


027046 


025202 


IRDCHR 


s jCALL-RDCHR 


TRAP* 10(104410) 


027050 


025332 


IRDLIN 


: tCALL-RDLIN 


TRAP*11(104411) 


027052 


025504 


♦RDOCT 


5 jCALL-ROOCT 


TRAP* 12(104412) 


027054 


025606 


iRDDEC 


J jCALL-RDOEC 


TRAP* 13(104413) 



.SBTTL 



#IILLUP.8WURVEC iiSET FOR FAST UP 
#340.8M>URVEC«2 >:PRI0:7 



IPURDN: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 

BR .-2 siHANG UP 

; • *************************************************************** 

: POUER UP ROUTINE 



RO,-(SP) 
Rl.-(SP) 
R2.-(SP) 
R3.-(SP) 
R4.-(SP) 
R5.-(SP) 
SSUR.-(SP) 
SP,ISAVR6 



iiPusH RO ON st;>ck 

itPUSH Rl ON STACK 
it PUSH R2 ON STACK 
itPUSH R3 ON STACK 
i (PUSH R4 ON STACK 
i sPUSH R5 ON STACK 
IS PUSH aSUR ON STACK 
it SAVE SP 



0«PURUP.8«PURVEC t tSET UP VECTOR 



027130 


012737 


027216 


000024 


$PURUP: 


MOV 


«IILLUP.S»PURVEC 


IS SET FOR FAST DOUN 


027136 


013706 


027222 






MOV 


ISAVR6.SP 


t;GET SP 


027142 


005037 


027222 






CLR 


«SAVR6 


itUAIT LOOP FOR THE TTY 


027146 


005237 


027222 




11: 


INC 


ISAVR6 


itUAIT FOR THE INC 


027152 


001375 








BNE 


11 


ttOF UORO 


027154 


012677 


151760 






MOV 


(SP)*.9SUR 


ttPOP STACK INTO 8SUR 


027160 


012605 








MOV 


(SP)*,R5 


it POP STACK INTO R5 


027162 


012604 








MOV 


(SP)*.R4 


it POP STACK INTO R4 


027164 


012603 








MOV 


(SP)*.R3 


iiPOP STACK INTO R3 


027166 


012602 








MOV 


(SP)*.R2 


iiPOP STACK INTO R2 


027170 


012601 








MOV 


(SP)*.R1 


it POP STACK INTO Rl 


027172 


012600 








MOV 


(SP)*.RO 


it POP STACK INTO RO 


027174 


012737 


027056 


000024 




MOV 


«IPURDN.S«PURVEC 


It SET UP THE POUER OOUN VECTOR 


027202 


01273^ 


000340 


000026 




MOV 


»340.9«PURVEC*2 


ttPRI0:7 



KTJll-B DIAGNOSTIC 
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POWER DOWN AND UP ROUTINES 



SEQ 0147 



027210 
027212 
027214 
027216 
027220 
027222 
027224 
027227 
027232 



104401 
027224 
000002 
000000 
000776 
000000 
015 
117 
122 



5590 
5591 
5592 
5593 
5594 



012 
127 
000 



120 
105 



5595 027234 


124 


111 


lis 


027237 


105 


117 


125 


027242 


124 


040 


117 


027245 


116 


040 


101 


027250 


103 


103 


105 


027253 


123 


123 


111 


027256 


116 


107 


040 


027261 


101 


040 


115 


027264 


101 


120 


040 


027267 


122 


105 


107 


027272 


111 


123 


124 


027275 


105 


122 


000 


5596 027300 


lis 


101 


120 


027303 


040 


122 


105 


027306 


107 


111 


123 


027311 


124 


105 


122 


027314 


040 


103 


117 


027317 


125 


114 


104 


027322 


040 


116 


117 


027325 


124 


040 


102 


027330 


105 


040 


103 


027333 


114 


105 


101 


027336 


122 


105 


104 


027341 


000 






5597 027342 


115 


101 


120 


027345 


040 


122 


105 


027350 


107 


111 


123 


027353 


124 


105 


122 


027356 


040 


103 


117 


027361 


125 


114 


104 


027364 


040 


116 


117 


027367 


124 


040 


110 


027372 


117 


114 


104 


027375 


040 


120 


101 


027400 


124 


124 


105 


027403 


122 


116 


000 


5598 027406 


115 


101 


120 


027411 


040 


122 


105 


027414 


107 


111 


123 


027417 


124 


105 


122 


027422 


040 


110 


101 


027425 


123 


040 


116 



TYPE 

IPURHG: .UORD *POUER 
RTI 

$ILLUP: HALT 

BR . 2 

$SAVR6: 0 

♦POWER: .ASCIZ <15><12> "POUER" 



; REPORT THE POUER FAILURE 
;;POUER FAIL MESSAGE POINTER 



THE POUER UP SEQUENCE UAS STARTED 

BEFORE THE POUER DOUN UAS COMPLETE 
PUT THE SP HERE 



.EVEN 
I ERROR MESSAGES 

EMI: .ASCIZ /TIMEOUT ON ACCESSING A MAP REGISTER/ 



EM2: 



.ASCIZ /MAP REGISTER COULD NOT BE CLEARED/ 



EM3: 



.ASCIZ /MAP REGISTER COULD NOT HOLD PATTERN/ 



EM4: 



ASCIZ /MAP REGISTER HAS NOT BEEN ADDRESSED CORRECTLY/ 



KTJll-B DIAGNOSTIC 
POWER DOUN AND UP ROUTINES 
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SEC 0148 





117 


1 




\J£ r ^ 


1 OP 


lOS 


1 OS 


Vt f ^ 


1 1 f> 




101 








IPP 


vc • 


105 


1P3 

XC 






105 

A V J 


104 


040 


027452 


103 


117 

AX* 


122 


027455 


122 


105 


103 


027460 


124 


X x^ 


131 
x<^x 


027463 


000 






027464 


124 


110 

X XV 


105 EH5 • 

XV^ 1^ • 


027467 


122 


105 

X 


040 


027472 


127 


101 

X vx 


123 


027475 


040 


116 


117 

XX ■ 


027500 


040 


104 


111 

XXX 


027503 


106 


106 

X vv 


105 

X 


027506 


122 


105 

X 


116 

XXV 


027511 


103 


105 


040 


027514 


106 


117 


125 


027517 


116 


104 


040 


027522 


102 


105 


124 


02 /525 


127 


105 


105 


027530 


116 


040 


110 


027533 


111 


040 


101 


027536 


116 


104 


040 


027541 


114 


117 


040 


027544 


115 


101 


120 


027547 


040 


122 


105 


027552 


107 


111 


123 


027555 


124 


105 


122 


027560 


123 


000 




027562 


105 


122 


122 EM6: 


027565 


117 


122 


040 


027570 


111 


116 


040 


027573 


102 


111 


124 


027576 


123 


040 


063 


027601 


055 


066 


054 


027604 


071 


055 


061 


027607 


064 


040 


111 


027612 


116 


040 


124 


027615 


110 


105 


040 


027620 


104 


103 


123 


027623 


122 


000 




027625 


104 


103 


123 EM7 : 


027630 


122 


040 


104 


027633 


111 


104 


040 


027636 


116 


117 


124 


027641 


040 


122 


105 


027644 


123 


120 


117 


027647 


116 


104 


040 


027652 


120 


122 


117 


027655 


120 


117 


122 


027660 


114 


131 


040 


027663 


117 


116 


040 


027666 


122 


105 


123 


027671 


105 


124 


000 


027674 


124 


111 


115 EMIO: 



.ASCIZ /THERE UAS NO DIFFERENCE FOUND BETWEEN HI AND LO MAP REGISTERS/ 



.ASCIZ /ERROR IN BITS 3 6,9-14 IN THE DCSR/ 



.ASCIZ /DCSR DID NOT RESPOND PROPORLY ON RESET/ 



.ASCIZ /TIMEOUT HAS OCCURED ON ACCESS TO THE DCSR/ 



KTJII-B DIAGNOSTIC 
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SEQ 0149 



POWER DOUN AND UP ROUTINES 



027677 


105 


117 


125 




027702 


124 


040 


110 




027705 


101 


123 


040 




027710 


117 


103 


103 




027713 


125 


122 


105 




027716 


104 


040 


117 




027721 


116 


040 


101 




027724 


103 


103 


105 




027727 


123 


123 


040 




027732 


124 


117 


040 




027735 


124 


110 


105 




027740 


040 


104 


103 




027743 


123 


122 


000 




5603 027746 


113 


115 


103 


EMU: 


027751 


122 


040 


102 




027754 


111 


124 


123 




027757 


040 


060 


055 




027762 


065 


054 


070 




027765 


040 


104 


111 




027770 


104 


040 


116 




027773 


117 


124 


040 




027776 


107 


105 


124 




030001 


040 


123 


105 




030004 


124 


040 


103 




030007 


117 


122 


122 




030012 


105 


103 


124 




030015 


114 


a V a 

131 


AAA 

000 




5604 030020 


124 


111 


115 


tnl2: 


030023 


105 


a a ^ 

117 


125 




030026 


124 


040 


110 




030031 


101 


a 

123 


040 




030034 


a a *f 

117 


103 






030037 


125 


122 


4 AC 
105 




030042 


104 


040 


117 




030045 


116 


040 


a A 4 

101 




030050 


103 


103 


105 




030053 


123 


123 


040 




030056 


124 


117 


040 




030061 


124 


110 


4 AC 

105 




030064 


040 


113 


115 




030067 


103 


122 


000 




5605 030072 


105 


122 


122 




030075 


117 


122 


Ail A 

040 




030100 


111 


116 


040 




030103 


104 


101 


124 




030106 


101 


040 


120 




030111 


101 


124 


110 




030114 


040 


120 


a AC 

105 




030117 


122 


106 


117 




03Ole2 




lie 


111 
111 




030125 


116 


107 


040 




030130 


104 


101 


124 




030133 


101 


040 


117 




030136 


125 


124 


000 




5606 030141 


105 


122 


122 


EM14: 


030144 


117 


122 


040 




030147 


111 


116 


040 





.ASCIZ /KMCR BITS 0-5.8 DID NOT GET SET CORRECTLf/ 



.ASCIZ /TIMEOUT HA' "CCUREO ON ACCESS TO THE KMCR/ 



.ASCIZ /ERROR IN DATA PATH PERFORMING DATA OUT/ 



.ASCIZ /ERROR IN DATA OUT CYCLE/ 



KTJll-B DIAGNOSTIC 
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SEQ 0150 



030152 


104 


101 






030155 


101 


ISA l\ 

040 


117 




030160 


125 


4 ^A 

124 


Ail A 

040 




030163 


4 AV 

103 


4 T 4 

131 


4 AT 
103 




030166 


4 4 Ji 

114 


4 AC 
105 


AAA 
000 




090171 


4 AC 

105 


4 99 

122 


4 99 
122 




030174 


4 4 7 

117 


4 99 

122 


AAA 

040 




030177 


4 4 4 

111 


4 4 A 
116 


AAA 

040 




030202 


4 /\A 
104 


4 A4 
101 


4 9A 

124 




03020S 


4 A4 
101 


AAA 
040 


4 4 4 

111 




030210 


no 


AAA 
040 


1 AT 

109 




Am9i V 




1 AT 

109 


1 1 A 
114 






1 AC 


AAA 
OOO 






AVA93A 




1 AA 
1U4 


122 


PHI £a. m 




AAA 
040 


111 

111 


1 9T 
120 






AAA 
040 


lie 
lib 


117 

11 ' 






1 9A 
124 


AAA 
040 


AeA 






W34 


AAA 
04U 


12 ' 




09029 ' 


1 1 A 

HO 


1 AC 
103 


lie 
lio 




090242 


AAA 


\ AA 
104 


1 AT 

1U3 




0902*S 


Xcc 


1 3T 
IcO 


A7A 
U f 4 




ATA3VA 
09Ue90 


U02 


A^^ 
U33 


^Dl 




090239 


A7JL 
O rO 


AAA 
y4U 


1 3T 
123 




090290 


1 AC 


1 1 A 

114 


1 A^ 
1U3 




090201 


1 nT 

XvO 


lc4 


1 0"*, 
le3 




090204 


AAA 

U4y 


1 3C 
123 


lie 

llO 




AVA 

09020 ' 


111 


1 A3 
lUc 


1 3'; 

le3 




09U2 re 


1 3T 
led 


AAA 


1 1A 
II** 




09Uc r3 


111 


1 1 A 
IID 


1 0<t 
1W3 




U9U0UU 


1 3T 








U909UC 


1 AA 




1 O'K 




U9U9VJ3 


1 99 
XCC 


n7A 






09091U 




n7A 


flAfl 




09091A 




117 

XX I 


IV J 




090910 


IcO 




lio 




090921 


117 

11 r 


1 3A 
124 


AAn 

U4U 




090924 


1 AS 
102 


io^ 


1V3 




09092 f 


117 

11 ' 


1 m 

113 


10S 




090992 


AAA 


AA1 
UDl 






09U993 


111 
111 


1 1 A 
IID 


1 OA 

IVH 




AVAVAA 
09U94U 


111 
111 


122 


1 

1U3 




AT ATA T 


1 AT 
lUO 


1 3A 
lc4 


OAO 




09U940 


1 A1 
lUl 


1 AA 
1U4 


1 AA 
lUH 




09093J. 


122 


1 AC 
1U3 


1 3T 
lc3 




U9093^ 


1 3T 
123 


111 
111 


1 1 A 
llO 




ATAT^7 

U9V93 r 


1 A7 
lU » 


AAA 
U4U 


117 
11 r 




ATATIIO 


1 A4^ 
IvO 


AAA 
U4U 


11^ 
113 




ATATIIC 
U3UA03 


1 A1 
lUl 


1 3A 
12U 


1 3n 

ICU 






111 
111 


1 1 A 

lio 


1 A7 
lU r 




030373 


040 


122 


105 




030376 


107 


111 


123 




030401 


124 


105 


122 




030404 


040 


120 


101 




030407 


111 


122 


123 




030412 


000 








030413 


122 


105 


107 


EM21: 


030416 


111 


123 


124 





.ASCIZ /ERROR IN DATA IN CYCLE/ 



.ASCIZ /DDR IS NOT 0, WHEN DCRS<2-1> SELECTS UNIBUS LINES/ 



.ASCIZ /DCSR<07> DOES NOT BECOME 1/ 



.ASCIZ /INDIRECT ADDRESSING OF MAPPING REGISTER PAIRS/ 



.ASCIZ /REGISTER PAIR 40 PERFORMS RELOCATION/ 



112 



DIAGNOSTIC 


MACRO Y05 


r r 1 ooy 


OUN AND yjF 


ROUTINES 




/W Ail 1 4 

030421 


1 AC 
103 


122 


040 


030424 


1 3A 
ICO 


1 A1 

lOX 


111 


03042 f 


Icc 


AAA 
04 O 


064 


AVAATO 

030432 


A&A 

ooo 


AAA 
04U 


120 


ATAATC 

030433 


1 AC 
1U3 


1 DO 
XCC 


106 


AVAAAA 
0304*0 


117 


1 PP 
XCC 


115 


030443 


1 OX 
Xe3 


AAA 
04U 


122 


030440 


1 A^ 
X03 


1 1 A 
1X4 


117 


030431 


1 nx 

X03 


1 A1 
XOX 


124 


030434 


111 
XXX 


117 

XX 1 


116 


03v43 f 


v^A/ 






0304D0 


1 lit 
xxo 


1 xn 
xou 


115 En22: 


0304D3 


AAA 


1 f\X 
X03 


117 


0304DD 


1 1 A 
XXD 


1 AA 
Xv4 


111 


0304 f X 


1 P4 
xc*» 


111 
XXX 


117 


0304 f^ 


lift 

XXw 


AAA 


103 


f^'Kf^A^^ 

0304 f f 


117 
XX r 


1 PC 
Xc3 


114 


03030c 


1 AA 

X WH 


AAA 


116 


ATACAC 
030903 


117 

XX r 


1 PA 
XC4 


040 


0303Xv 


1 AP 
XV^C 


1 AS 
Xv3 


040 


0303X3 


1 nx 

XvO 


1 PP 
Xcc 


105 


AT Ad Si 
0303XD 


1 01 
xvx 


1 PA 

xc*» 


105 


0309cX 


1 04 
X v*» 


OAO 


124 


0303c4 


1 1 A 

XXV 


1 PP 
xcc 


125 


03U9c f 


AAA 


101 
X vx 


114 


03033c 


IPS 
xc^ 


000 

WW 




030334 


101 

X VX 


1 14 

A A"» 


125 EH23: 


03033 1 


040 


10S 

AV J 


122 


03034e 


1 pa 
xcc 


117 

AA * 


122 


030343 


ooo 

WW 






03034D 


103 

A V W 


IPO 
AC V 


125 EM24 : 


03033X 


040 


10'« 
X 


101 


030334 


103 

X Vw 


1 10 
XXV 


105 


03033 1 


040 


105 
XV J 


122 


03030c 




117 

X X ( 


122 


030303 


AAA 






030300 


1 1 

A Aw 


115 

X X J 


103 EM25: 


0303 f X 




074 


064 


0303 f 4 


0S5 


060 


076 


0303 r r 


040 


104 

A 


117 


ATAI^AO 

030D0C 


1 1#« 
A AO 


047 


124 


AVAUAC 

030003 


040 


104 

A V*V 


111 


0300X0 


Ac ^ 


1 A1 

A VA 


102 


03U0X3 


114 
A A*» 


1 A^ 

A V3 


040 


030DX0 


A A J 


105 
A 


115 


ATA&31 
U30Dcl 


117 

AA « 


1 PP 
ACC 


131 




040 


1 PP 
ACC 


105 


rtTAIl37 


1 PX 
Ac ^ 


1 PA 
Ac w 


117 


03003c 


1 16 

A Aw 


IPS 
AC J 


105 


03w033 


000 






OOUOOO 


113 


115 


103 EM26: 




122 


040 


104 


030644 


117 


105 


123 


030647 


040 


116 


117 


030652 


124 


040 


122 


030655 


105 


106 


114 


030660 


105 


103 


124 



.ASCIZ /NXM CONDITION COULD NOT BE CREATED THRU ALU/ 



.ASCIZ /ALU ERROR/ 



■ASCIZ /CPU CACHE ERROR/ 



.ASCIZ /KMCR<4-0> DON'T DISABLE MEMORY RESPONSE/ 



.ASCIZ /KMCR DOES NOT REFLECT EXPECTED STATUS OF THE CACHE/ 



J12 
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SEQ 0152 



S621 



030663 


040 


105 


130 


030666 


120 


105 


103 


030671 


124 


105 


104 


030674 


040 


123 


124 


030677 


101 


124 


125 


030702 


123 


040 


117 


030705 


106 


040 


124 


030710 


110 


105 


040 


030713 


103 


101 


103 


030716 


110 


105 


000 


030721 


105 


122 


122 EM27 : 


030724 


117 


122 


040 


030727 


111 


116 


040 


030732 


103 


101 


103 


030735 


110 


105 


040 


030740 


124 


101 


107 


030743 


040 


122 


105 


030746 


107 


111 


123 


030751 


124 


105 


122 


030754 


123 


000 




030756 


105 


122 


122 EM30: 


030761 


117 


122 


040 


030764 


111 


116 


040 


030767 


124 


110 


105 


030772 


040 


104 


115 


030775 


101 


040 


103 


031000 


101 


103 


110 


031003 


105 


040 


104 


031006 


101 


124 


101 


031011 


040 


122 


101 


031014 


115 


123 


000 


031017 


105 


122 


IZZ cnal : 


031022 


117 


122 


Ail A 

040 


031025 


111 


116 


040 


031030 


124 


110 


105 


031033 


040 


115 


071 


031036 


063 


061 


062 


031041 


040 


102 


117 


031044 


117 


124 


040 


031047 


122 


117 


115 


031052 


040 


123 


105 


031055 


103 


124 


111 


031060 


117 


116 


000 


031063 


105 


122 


122 EM32 : 


031066 


117 


122 


040 


031071 


111 


116 


040 


031074 


101 


122 


102 


031077 


111 


124 


122 


031102 


101 


124 


111 




117 


116 


A 

040 


031110 


114 


117 


107 


031113 


111 


103 


040 


031116 


125 


123 


111 


031121 


116 


107 


040 


031124 


125 


102 


105 


031127 


000 






031130 


105 


122 


122 En33: 



.ASCIZ /ERROR IN CACHE TAG REGISTERS/ 



.ASCIZ /ERROR IN THE DMA CACHE DATA RAMS/ 



, ASCIZ /ERROR IN THE M9312 BOOT ROM SECTION/ 



.ASCIZ /ERROR IN ARBITRATION LOGIC USING UBE/ 



.ASCIZ /ERROR TRYING TO EXECUTE DMA CYCLES THRU UBE/ 



KTJll-B DIAGNOSTIC 




MACRO Y05 


02 Friday 


POWER OOUN AND UP 


ROUTINES 




031133 


117 


122 


Ail A 

040 


031136 


124 


122 


4 V4 
131 


031141 


111 


116 


4 A^ 

107 


031144 


040 


124 


4 4^ 

117 


031147 


040 


105 


4 TA 
130 


031152 


105 


103 


4 9C 

125 


031133 


124 


105 


AAA 


/W 4 4 £ A 

031160 


104 


115 


4 A4 
101 


AV 4 4 £. V 

031163 


040 


103 


4 T 4 

131 


/W 4 4 £ C 

031166 


103 


114 


4 AC 

105 


/W 4 4^4 

031171 


123 


040 


4 9A 

124 


031174 


110 


122 


4 

125 


031177 


040 


125 


4 AO 

102 


031202 


105 


000 




5622 031204 


105 


122 


4 93 FMTA . 

12c fcn94: 


031207 


117 


122 


Ail A 

040 


/W 4 O 4 ^ 

031212 


111 


116 


AAA 

04U 


031215 


124 


110 


4 AQ 
103 


031220 


040 


125 


4 4 £. 
IID 


AV 4 V 

031223 


111 


102 


4 9C 

123 


A« 4 


123 


040 


113 


AV 4 4 

031231 


105 


115 


4 4 7 

11 ' 


AV 4 99 4 

031234 


122 


131 


AAA 

u*o 


031237 


124 


105 




AV 4 

031242 


124 


000 




5623 031244 


125 


116 


aU3 cno3: 


AV 4 '^il ^ 

031247 


130 


120 


103 


AV 4 

031252 


103 


124 


1 oc 

1U3 


AV 4 

031255 


104 


040 


1 OA 


AV 4 9X.A 

031260 


111 


lis 


1U3 


AV 4 

031269 


117 


125 


1 OA 


AV 4 

031266 


040 


110 


IWA 


AV 4 9^ 4 

031271 


123 


040 




AV 4 9^ A 

031274 


103 


103 


1 3^ 
lc3 


A* 4 

0912 ' f 


122 


105 


1 04 


AV 4 

031302 


000 






aV 4 VAV 

5624 031303 


125 


116 


111 FH'Kft • 


AV 4 VAX. 

031306 


102 


125 


xc9 


AV 4 V 4 4 

031311 


040 


124 


111 

111 


AV 4 V 4 ^ 

031314 


115 


105 


11 ' 


AV 4 V 4 *Y 

031917 


125 


124 




AV 4 V 99 

031922 


104 


111 


1 nA 


AV 4 V 9C 

031325 


040 


116 


117 

11 ' 


AV 4 W A 

031990 


124 


040 


1 37 
Ic ' 


Av 4 m 
031999 


117 


122 


^ ^ X 

1X0 


AV 1 1 V£ 

031936 


040 


103 


117 

11 f 


A1 4 14 4 

091941 


122 


122 


mc 

1U3 


A V 4 Jk 

031344 


103 


124 


4 4 A 
11* 


AV 4 V A ^ 

09194 f 


131 


000 




CX.9C A14Vd 

5625 091951 


104 


103 


1 OX CMX1 • 

lc9 tnor; 


AH X^A 


122 


074 




AT 4 


076 


040 


1 AA 

Iv* 


091902 


111 


104 


AAA 


AVI VHS 
VS19D9 


116 


117 


1 34 

xc* 


031370 


040 


104 


111 


031373 


123 


101 


102 


031376 


114 


105 


040 



K12 

Page 64-22 



seO 0153 



ASCIZ /ERROR IN THE UNIBUS MEMORY TEST/ 



.ASCIZ /UNEXPECTED TIMEOUT HAS QCCURED/ 



.ASCIZ /UNIBUS TIMEOUT DID NOT WORK CORRECTLY/ 



.ASCIZ /DCSR<3> DID NOT DISABLE UBA ROM RESPONSE/ 



KTJll B DIAGNOSTIC 



MACRO Y05.02 Friday 29-nar 85 12:53 



L12 

Page 64-23 



POWER DOUN AND UP ROUTINES 



SEQ 0154 



031401 


125 


102 


101 




031404 


040 


122 


117 




031407 


115 


040 


122 




031412 


105 


123 


120 




031415 


117 


116 


123 




031420 


105 


000 






5626 










5627 031422 


124 


105 


123 


DHl: 


031425 


124 


Oil 


105 




031430 


122 


122 


117 




031433 


122 


Oil 


105 




031436 


122 


122 


117 




031441 


122 


Oil 


101 




031444 


104 


104 


122 




031447 


105 


123 


123 




031452 


012 


015 






5628 031454 


040 


040 


043 




031457 


Oil 


040 


040 




031462 


120 


103 


Oil 




031465 


040 


040 


043 




031470 


000 








5629 031471 


124 


105 


123 


DH2: 


031474 


124 


Oil 


105 




031477 


122 


122 


117 




031502 


122 


Oil 


105 




031505 


122 


122 


117 




031510 


122 


Oil 


107 




031513 


117 


117 


104 




031516 


Oil 


102 


101 




031521 


104 


012 


015 




5630 031524 


040 


040 


043 




031527 


Oil 


040 


040 




031532 


120 


103 


Oil 




031535 


040 


040 


043 




031540 


Oil 


104 


101 




031543 


124 


101 


Oil 




031546 


104 


101 


124 




031551 


101 


Oil 


101 




031554 


104 


104 


122 




031557 


105 


123 


123 




031562 


000 








5631 031563 


124 


105 


123 


DH3: 


031566 


124 


Oil 


105 




031571 


122 


122 


117 




031574 


122 


Oil 


105 




031577 


122 


122 


117 




031602 


122 


Oil 


107 




031605 


117 


117 


104 




031610 


Oil 


102 


101 




031613 


104 


012 


015 




5632 031616 


040 


040 


043 




031621 


Oil 


040 


040 




031624 


120 


103 


Oil 




031627 


040 


040 


043 




031632 


Oil 


101 


104 




031635 


104 


122 


105 




031640 


123 


123 


Oil 





.ASCII /TEST ERROR ERROR ADDRESS/ <12><15> 



.ASCIZ / # PC 



#/ 



.ASCII /TEST ERROR ERROR GOOD BAD/<12><15> 



.ASCIZ / « PC » DATA DATA ADDRESS/ 



.ASCII /TEST ERROR ERROR GOOD BAD/<12><15> 



.ASCIZ / # PC 



« ADDRESS ADDRESS/ 



M12 



KTJll-B DIAGNOSTIC riACRO Y0S.02 Friday 29-nsp-8S 12:53 Page 64-24 

POUER DOUN AND UP ROUTINES 



SEQ 0155 



031643 


101 


104 


104 


031646 


122 


105 


123 


031651 


123 


000 




5633 031653 


124 


105 


123 DH4: 


031656 


124 


Oil 


105 


031661 


122 


122 


117 


031664 


122 


Oil 


105 


031667 


122 


122 


117 


031672 


122 


Oil 


110 


031675 


111 


Oil 


114 


031700 


117 


127 


012 


031703 


015 






5634 031704 


040 


040 


043 


031707 


Oil 


040 


040 


031712 


120 


103 


Oil 


031715 


040 


040 


043 


031720 


Oil 


115 


101 


031723 


120 


Oil 


115 


031726 


101 


120 


000 


5635 031731 


124 


105 


123 OHS: 


031734 


124 


Oil 


105 


031737 


122 


122 


117 


031742 


122 


Oil 


105 


0S174S 


122 


122 


117 


031750 


122 


Oil 


107 


031753 


117 


117 


104 


031756 


Oil 


102 


101 


031761 


104 


012 


015 


5636 031764 


040 


040 


043 


031767 


Oil 


040 


040 


031772 


120 


103 


Oil 


031775 


040 


040 


043 


032000 


Oil 


104 


101 


032003 


124 


101 


Oil 


032006 


104 


101 


124 


032011 


101 


000 




5637 032013 


124 


105 


123 DH13: 


032016 


124 


Oil 


105 


032021 


122 


122 


117 


032024 


122 


Oil 


105 


032027 


122 


122 


117 


032032 


122 


Oil 


104 


032035 


104 


122 


Oil 


032040 


120 


101 


124 


032043 


124 


105 


122 


032046 


116 


012 


015 


5638 032051 


040 


040 


043 


032054 


Oil 


040 


040 


032057 


120 


103 


Oil 


032062 


040 


040 


043 


032065 


000 






5639 032066 


124 


105 


123 0H16: 


032071 


124 


Oil 


105 


032074 


122 


122 


117 


032077 


122 


Oil 


105 


032102 


122 


122 


117 


032105 


122 


012 


015 



.ASCII /TEST ERROR ERROR HI L0U/<12><15> 



.ASCIZ / • PC 



« MAP HAP/ 



.ASCII /TEST ERROR ERROR GOOD 8A0/<12><15> 



.ASCIZ / # PC 



» DATA DATA/ 



.ASCII /TEST ERROR ERROR DDR PATTERN/<12><15> 



.ASCIZ / ♦ PC 



#/ 



.ASCII /TEST ERROR ERR0R/<12><15> 



KTJll-B DIAGNOSTIC 
POWER OOUN AND UP ROUTINES 



N12 

MACRO Y05.02 Friday 29-har-S5 12:53 Pag* 64-25 



SEQ 0156 



092110 


04O 


AAA 


AAV 

043 


0921 IS 


Oil 


AAA 

040 


AAA 

040 


092116 


1 9A 

120 


1 AV 

109 


At 1 

Oil 


092121 


AAA 


AAA 


AAV 

049 


AV91 9^ 

092124 


AAA 






0921c3 


1 9A 

lc4 


f AC 

109 


129 0n20: 


U9cl9V 


1«* 


oil 


AOS 




Acs 


1 99 
Iss 


11 r 




1 99 




109 




1 99 
ICS 


1 99 
Acc 


117 

11 r 




1 99 
Icc 


O* 1 

U«A 


111 

119 




IK 
XX9 


101 
Av9 


1 99 
Icc 




OAO 


1 90 
Acv 


101 
Ivl 




111 


1 99 
ICS 


Al 9 
UlC 




01 ^ 

UX9 








OAO 


AAO 


AAl 
W*9 




Ol 1 


OAO 


OAO 




1 90 
lev 


1 Ol 

AU9 


Ol 1 
UA A 




OAO 


OAO 


OAl 


m9i 7^ 


Ol 1 


1 OA 
AVO 


1 Ol 
AvA 




111 


1 1 A 
A A* 


10S 
Av9 


V JSC 


10A 


OOO 






1 9A 
Ic^ 


10S 

A V9 


1 91 nH91 • 
AC9 l/nsw • 




19A 

AC^ 


Ol 1 
V A A 


10S 
A v9 


V Jcc 1 J 


1 99 
xcc 


199 

ACC 


117 
XA ■ 


UdCC AO 


1 99 
xcc 


Ol 1 
vA A 


105 

A v^ 




199 
xcc 


199 

ACC 


117 

AA ■ 


m999A 


1 99 

ACC 


Ol 1 

VA A 


107 

XV * 


ftl9997 


117 


117 
A A ■ 


104 
xw^ 


m99X9 


Ol 1 


109 
Ave 


101 

X VX 




104 


Oil 


101 




104 


104 

AV^ 


19P 

ACC 




10S 
Xv9 


191 


191 

AC^ 




019 

VAC 


019 

VA9 




0199^0 


OAO 
w^w 


OAO 


041 




Ol 1 
VAX 


OAO 

V^v 


040 

w^v 


U0cc9D 


1 90 
AcU 


101 

A V V 


Ol 1 

VAX 




OAO 


OAO 


OAl 


0199IIA 


Ol 1 
vA A 


1 OA 

A V* 


101 

XvX 


01991^7 


194 
AC^ 


101 
A V A 


01 1 

VX X 


•19979 


1 OA 
A 


1 Ol 
AvA 


19A 
xc^ 


ftl997S 


101 

A V A 


Ol 1 
vA A 


074 


ftl91ftft 


OA9 

UvC 


OA9 
VOC 


OSS 


019101 


OA1 
WA 


vOO 


07#> 


ni910A 


Ol 1 
vA A 


07A 
W r* 


OA1 
VOX 


01911 1 
V9c91 1 


OAl 


O^^ 

v99 


OAO 
UOv 


01911 A 


074> 


OOO 




01911 <k 


1 9A 
AC* 


1 O^ 

AU9 


1 91 nM97 • 
Ac9 l/nc ' : 


OSPSPl 


124 
xs^ 


Oil 


105 

A Va^ 


032324 


122 


122 


117 


032327 


122 


Oil 


105 


032332 


122 


122 


117 


032335 


122 


Oil 


101 


032340 


104 


104 


122 


032343 


105 


123 


123 


032346 


Oil 


101 


104 


032351 


104 


122 


105 



.ASCIZ / « PC •/ 



.ASCII /TEST ERROR ERROR KnCR PAIR/<12><15> 



.ASCIZ / « PC • FAILED/ 



.ASCII /TEST ERROR ERROR GOOD BAD AD0RESS/<12><15> 



ASCIZ / • PC 



• DATA DATA <22-16> <13-0>/ 



.ASCII /TEST ERROR ERROR ADDRESS ADDRESS/<12><15> 



B13 

KTJll B DIAGNOSTIC MACRO Y05.02 Friday 29-M«r-85 12:53 P*9« 64-26 





UP ROUTINES 












123 


12 










03P357 


015 














040 


040 


043 










Oil 


040 


040 








032366 


120 


103 


oil 








03P371 


040 


040 


043 








03P374 


Oil 


074 


062 








OS3S77 


062 


055 


061 










066 


076 


oil 








032405 


074 


061 


065 








032410 


055 


060 


076 








032413 


000 












5647 








.EVEN 






5640 032414 


001716 


001116 


0017x4 


DTI: 


.WORD 


TEST tERRPC ERRNUM. tBDADR 0 


032422 


001122 


000000 










5649 032426 


001716 


001116 


001714 


DT2- 


.WORD 


TEST tERRPC ERRNUM tGDDAT tBDDAT tBDADR 0 


032434 


001124 


001126 


001122 








032442 


000000 












5650 032444 


001716 


001116 


001714 


DT3; 


.WORD 


TEST . (ERRPC. ERRNUM. (GDADR . tBDADR 0 


032452 


001120 


001122 


000000 








5651 032460 


001716 


001116 


001714 


0T4: 


.WORD 


TEST. lERRPC. ERRNUM. tGDDAT . tBDDAT .0 


032466 


001124 


001126 


000000 








5652 032474 


001716 


001116 


001714 


DT16: 


.WORD 


TEST, tERRPC. ERRNUM, 0 


032502 


000000 












5653 032504 


001716 


001116 


001714 


DT20: 


.UORO 


TEST , tERRPC, ERRNUM, KMCR. tBDADR, 0 


03^512 


177734 


001122 


000000 








5654 032520 


001716 


001122 


001714 


DT21: 


.UORO 


TEST . tBDADR . ERRNUM . 0 


032526 


000000 












5655 032530 


001''16 


001116 


001714 


0T23: 


.WORD 


TEST, tERRPC, ERRNUM, tGDDAT , tBDDAT. KIPAR6, tBDADR, 0 


032536 


001124 


001126 


172354 








032544 


001122 


000000 










5656 032550 


001716 


001116 


001714 


DT27: 


.WORD 


T EST , t ERRPC , ERRNUM , MAPHOl . MAPL 0 1 . 0 


032556 


170206 


170204 


000000 








5657 032564 


001716 


001116 


001714 


0T30: 


.UORO 


TEST , tERRPC . ERRNUM . MAPLOO , 0 


032572 


170200 


000000 










5650 


000001 








.END 





KTJll-B DIAGNOSTIC MACRO 



Symbol tabl« 



ABASE - 


000000 


6E16A 


ABORT 


026206 


BEICC 


ABORTC 


026240 


BEICLR 


ABORTE 


026304 


BEICRI 


ABORTZ 


026330 


BE1CR2 


ACDUl - 


000000 


BE106 


AC0U2 - 


000000 


BEIINT 


ACPUOP- 


000000 


BEIPSU 


AODUO • 


000000 


BEISV 


ADOUl • 


000000 


BEIVEC 


ADOUIO- 


000000 


6E2BA 


AODUll- 


000000 


BE2CC 


A00U12- 


000000 


BE2CLR 


A0DU13- 


000000 


BE2CR1 


A00U14- 


000000 


BE2CR2 


AOOUIS- 


000000 


BE20B 


A00U2 - 


000000 


BE2INT 


ADDU3 • 


000000 


BE2PSU 


A0DU4 - 


000000 


BE2SV 


AOOUS - 


000000 


BE2VEC 


A0DU6 - 


000000 


BITO - 


A00U7 - 


000000 


BITOO - 


A0DU8 - 


000000 


BITOl - 


AD0U9 - 


000000 


BIT02 - 


AOEVCT- 


000000 


BIT03 - 


ADEVM - 


000000 


BIT04 - 


AENV - 


000000 


BIT05 • 


AENVn - 


000000 


BIT06 - 


AFATAL- 


000000 


BIT07 - 


AMADRl- 


000000 


BIT08 - 


AnADR2- 


000000 


B1T09 " 


AMADRS- 


000000 


BITl • 


AnADR4- 


000000 


BITIO - 


AnAnsi- 


000000 


BITll - 


AnAns2- 


000000 


BIT12 - 


AMAnSS- 


000000 


BIT13 • 


AnAns4- 


000000 


BIT14 - 


AnSGAO- 


000000 


BIT15 - 


AMSGLG- 


000000 


BIT2 - 


AMSGTY- 


000000 


BIT3 ' 


AMTYPl- 


000000 


BIT4 - 


AMTYP2* 


000000 


BITS • 


AMTYP3- 


000000 


BIT6 - 


Af1TYP4- 


000000 


BIT7 - 


APASS - 


000000 


BITS - 


APRIOR- 


000000 


BIT9 • 


APTCSU- 


000040 


BPTVeC- 


APTENV- 


000001 


CCR 


APTSIZ- 


000200 


CKSUR - 




000100 


CR ■ 


ASUREG- 


000000 


CRLF - 


ATESTN" 


000000 


CTBLE 


AUNIT • 


000000 


OCSR • 


AUSUR - 


000000 


ODIN 


AVECTl- 


000000 


OOISP - 


AVECT2- 


000000 


OOOUT 


BCSR - 


177520 


DDR 



.02 Friday 29-nar-85 12:53 Pagt 



002206 


DHl 


031422 


002204 


DH13 


032013 


002212 


DH16 


032066 


002210 


DH2 


031471 


002214 


DH20 


032125 


002202 


DH23 


032205 


001724 


0H27 


032316 


002220 


DH3 


031563 


015512 


DH4 


031653 


002216 


0H5 


031731 


002226 


DISPLA 


001142 


002224 


DISPRE 


000174 


002232 


OSUR - 


177570 


002230 


OTl 


032414 


002234 


0T16 


032474 


002222 


0T2 


032425 


001726 


DT20 


032504 


002240 


0T21 


032520 


015532 


0T23 


032530 


002236 


DT27 


032550 


000001 


DT3 


032444 


000001 


DT30 


032564 


000002 


DT4 


032460 


000004 


EMTSAV 


002530 


000010 


EMTVEC- 


000030 


000020 


EMl 


027234 


000040 


EMIO 


027674 


000100 


EMU 


027746 


000200 


EM12 


030020 


000400 


EM13 


030072 


001000 


EM14 


030141 


000002 


EM15 


030171 


002000 


EM16 


030220 


004000 


EM17 


030302 


010000 


EM2 


027300 


020000 


EM20 


030335 


040000 


EM21 


030413 


100000 


EM22 


030460 


000004 


EM23 


030534 


000010 


EM24 


030546 


000020 


EM25 


030566 


000040 


En26 


030636 


000100 


EM27 


030721 


000200 


EM3 


027342 


000400 


Enso 


030756 


001000 


EM31 


031017 


000014 


En32 


031063 


177746 


EMSS 


031130 


104407 


En34 


031204 


AAA A* P 

000015 


tM35 


031244 


000200 


EM36 


031303 


002054 


EM37 


031351 


177730 


EM4 


027406 


002254 


EM5 


027464 


177570 


EM6 


027562 


002242 


EM7 


027625 


177732 


ERRNUN 


001714 



ERROR ' 104000 
ERRVEC* 000004 
ERTYPE 026346 
GTSUR - 104406 
HT - 000011 
lOTVEC- 000020 
lUBE 002502 
KDPARO- 172360 
KDPARl- 172362 
KDPAR2- 172364 
K0PAR3- 172366 
K0PAR4- 172370 
K0PAR5- 172372 
K0PAR6- 172374 
K0PAR7- 172376 
KDPDRO- 172320 
KDPDRl- 172322 
KDPDR2- 172324 
K0P0R3« 172326 
KDPDR4- 172330 
K0P0R5- 172332 
KDPDR6- 172334 
KDPDR7- 172336 
KIPARO- 172340 
KIPARl- 172342 
KIPAR2- 172344 
KIPAR3- 172346 
KIPAR4- 172350 
KIPAR5- 172352 
KIPAR6- 172354 
KIPAR7- 172356 
KIPORO- 172300 
KIPDHl- 172302 
KIPDR2- 172304 
KIPDR3- 172306 
KIPDR4- 172310 
KIPDR5- 172312 
K1PDR6- 172314 
KIP0R7- 172316 
KMCR - 177734 
LF - 000012 
MAPHO - 170202 
MAPHOO- 170202 
MAPHOl- 170206 
nAPH02- 170212 
nAPH03- 170216 
nAPH04- 170222 
MAPHOS- 170226 
nAPH06- 170232 
f1APH07- 170236 
MAPHl - 170206 
MAPHlO- 170242 
MAPHl 1- 170246 
MAPH12- 170252 
MAPHl 3» 170256 
MAPH14- 170262 
MAPH15- 170266 



MAPH16- 170272 
MAPH17- 170276 
MAPH2 - 170212 
MAPH20- 170302 
MAPH21- 170306 
MAPH22- 170312 
MAPH23- 170316 
MAPH24- 170322 
MAPH25- 170326 
MAPH26- 170332 
MAPH27- 170336 
MAPH3 - 170216 
MAPH30- 170342 
MAPH31- 170346 
MAPH32- 170352 
MAPH33- 170356 
MAPH34- 170362 
MAPH35- 170366 
MAPH36* 170372 
MAPH37- 170376 
MAPH4 - 170222 
MAPH5 - 170226 
MAPH6 » 170232 
MAPH7 - 170236 
MAPLO » 170200 
MAPLOO- 170200 
MAPLOl- 170204 
MAPL02- 170210 
MAPL03- 170214 
MAPL04- 170220 
MAPL05« 170224 
MAPLC6« 170230 
MAPL07" 170234 
MAPLl - 170204 
MAPLIO- 170240 
MAPL11« 170244 
MAPL12« 170250 
MAPL13- 170254 
MAPL14« 170260 
MAPL15« 170264 
MAPL16" 170270 
MAPL17- 170274 
MAPL2 ■ 170210 
MAPL20- 170300 
MAPL21- 170304 
MAPL22- 170310 
MAPL23- 170314 
nAPL24- 170320 
MAPL25- 170324 
MAPL26* 170330 
MAPL27- 170334 
MAPL3 - 170214 
MAPL30- 170340 
MAPL31'' 170344 
MAPL32- 170350 
MAPL33- 170354 
MAPL34- 170360 



KTJII-E DIAGNOSTIC 







MAPL35 


■ 170364 


MAPL36 


■ 170370 


MAPL37 


■ 170374 


MAPL4 


■ 170220 


HAPLS 


■ 170224 


HAPL6 


■ 170230 


MAPL7 


■ 170234 


HAPPR 


002276 


HCSR 


001732 


MEMS I Z 


002364 


MMRO 


• 177572 


MHRl 


■ 177574 


MMR2 


" 177576 


MttW 3 


■ 172516 


MMVEC 


■ 000250 


NOABRT 


026344 


NOCAH 


007706 


NROM 


013612 


OBAOR 


002172 


PGR 


■ 177522 


PIRQ > 


• 177772 


PIRQVE' 


• 000240 


PMIS 


001 720 


POLY ' 


• 120001 


PRO 


> 000000 


PRl • 


• 000040 


PR2 


> 000100 


PR3 


000140 


PR4 


000200 


PR5 


000240 


PR6 


000300 


PR7 


000340 


PS 


177776 


PSU 


177776 


PTRN16 


001774 


PTRN6 


002024 


PURVEC- 


000024 


RDCHR - 


104410 


ROOEC - 


104413 


ROLIN ■ 


104411 


ROOCT - 


104412 


RESTAR 


003320 


RESVEC* 


000010 


R6 


«000006 


R7 


it000007 


SAV30 


002616 


SAV32 


002620 


SCOPE - 


000004 


SIMLGO- 


170014 


SRO 


177572 


SRI > 


177574 


SR2 


177576 


SR3 


172516 


STACK - 


001100 


START 


002530 


STKLMT- 


177774 


SUR 


001140 



I 
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SUREG 


000176 


SUO 


■ 000001 


SUOO • 


COOOOl 


SUOl ' 


000002 


SU02 • 


000004 


SU03 < 


000010 


SU04 - 


000020 


SU05 • 


000040 


SU06 - 


000100 


SU07 • 


000200 


SU08 - 


000400 


SU09 - 


001000 


SUl 


000002 


SUlO - 


002000 


SUll - 


004000 


SU12 - 


010000 


SUl 3 - 


020000 


SU14 - 


040000 


SU15 - 


100000 


SU2 - 


000004 


SU3 


000010 


SU4 


000020 


SU5 


000040 


SU6 


000100 


SU7 


000200 


SU8 


000400 


SU9 


001000 


T8ITVE- 


000014 


TBLMH 


012732 


TBLML 


012672 


TEST 


001716 


TIMOUT 


002266 


TKVEC - 


000060 


TOPTBL 


010564 


TOUT 


001730 


TPVEC - 


000064 


TRAPVE» 


000034 


TRTVEC- 


000014 


TSTl 


003324 


TSTIO 


004510 


TSTll 


004642 


TST12 


004744 


TST13 


005066 


TST14 


005472 


TST15 


005670 


TST16 


006074 


TST17 


006264 


TST2 


003450 


TST20 


006536 


TST21 


007136 


TST22 


007616 


TST23 


007726 


TST24 


010120 


TST25 


010600 


TST26 


011310 


TST27 


011452 


TST3 


003664 



TST30 012134 

TST31 012350 

TST32 012772 

TST33 013224 

TST34 013650 

TST35 014050 

TST36 014236 

TST37 014340 

TST4 004006 

TST40 014620 

TST41 015160 

TST42 015314 

TST43 015552 

TST44 015756 

TST45 016050 

TST46 016130 

TST47 016230 

TST5 004064 

TST50 016444 

TSTSl 016542 

TST52 016710 

TST53 017022 

TST54 017452 

TST55 017616 

TST56 017766 

TST57 020414 

TST6 004250 

TST60 020766 

TST61 021050 

TST62 021154 

TST63 021570 

TST64 022334 

TST65 022520 

TST66 022742 

TST67 023122 

TST7 004426 

TYPOS » 104405 

TYPE - 104401 

TYPOC - 104402 

TYPON - 104404 

TYPOS » 104403 

UBECT 001722 

UBEM 023122 

UBETST 013224 

UFOFLG 002622 

UFDSET- 000001 

UnSIZ 002456 

UQUIET 002624 

VALTBL 010550 

VMKOR 002626 

URTBUF 001734 

♦APTHO 000232 

*ATYC 026414 

♦ATYl 026370 

$ATY3 026376 

«ATY4 026406 

lAUTOB 001134 



I 



)BASE 001254 

IBDADR 001122 

«BDDAT 001126 

♦BELL 001170 

ICDUl 001260 

♦CDU2 001262 

$CHARC 024242 

tCKSUR 024720 

♦CMTAG 001100 

»CM3 - 000000 

«CM4 - 000002 

♦CNTLG 025455 

♦CNTLU 025450 

$CPU0P 001226 

♦CRLF 001175 

$OBLK 024710 

lOOUO 001264 

lOOUl 001266 

«00U10 001310 

IDDUll 001312 

I00U12 001314 

I00U13 001316 

«00U14 001320 

«DDU15 001322 

IDDU2 001270 

$D0U3 001272 

$DDU4 001274 

«DDU5 001276 

$D0U6 001300 

$D0W7 001302 

$00U8 001304 

IDDU9 001306 

♦DEVCT 001210 

«0EVM 001256 

tOOAGN 023350 

♦OTBL 024700 

♦ENOAO 023340 

♦ENDCT 023220 

♦ENULL 023354 

♦ENV 001220 

♦ENVM 001221 

♦EOP 023164 

lEOPCT 023212 

lERFLG 001103 

«ERMAX 001115 

lERROR 025764 

$ERRPC 001116 

$ERRTB 001324 

♦ERRTY 026636 

♦ERTTL 001112 

♦ESCAP 001166 

♦ETABL 001220 

♦ETEND 001324 

♦FATAL 001202 

♦FFLG 026634 

♦FILLC 001156 

♦FILLS 001155 



♦GDAOR 001120 

♦GDDAT 001124 

♦GET42 023330 

♦GTSUR 024770 

♦HO • 000001 

♦HIBTS 000232 

♦HIOCT 025604 

♦ICNT 001104 

♦ILLUP 027216 

♦INT AG 001135 

♦ITEM8 001114 

♦LF 001176 

♦LFLG 026633 

♦LPAOR 001106 

♦LPERR 001110 

♦MAORI 001232 

♦MA0R2 001236 

♦MADR3 001242 

♦MA0R4 001246 

♦MAIL 001200 

♦MAMSl 001230 

♦MAMS2 001234 

♦MAMS3 001240 

♦MAMS4 001244 

♦MBAOR 000234 

♦MFLG 026632 

♦MNEU 025473 

♦MSGAO 001214 

♦MSGLG 001216 

♦MSGTY 001200 

♦MSUR 025462 

♦MTYPl 001231 

♦MTYP2 001235 

♦MTYP3 001241 

♦MTYP4 001245 

♦MXCNT 023710 

♦NULL 001154 

♦NUTST« 000001 

♦OCNT 024470 

♦OMOOE 024472 

♦OVER 023636 

♦PASS 001206 

♦PASTM 000240 

♦POWER 027224 

♦PURON 027056 

♦PURMG 027212 

♦PURUP 027130 

♦OUES 001174 

♦RDCHR 025202 

♦RDUEC 025606 

♦RDLIN 025332 

♦RDOCT 025504 

♦RDSZ - 000010 

♦RTNAO 023352 

♦SAVR6 027222 

♦SCOPE 023360 

♦SETUP- 000137 
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♦STUP - 
ISVLAO 
♦SVPC • 
ISUR - 
ISUREG 
ISURMK- 
♦TESTN 
♦TIMES 
♦ TKB 

. ASS. 



177777 
023602 
000232 
167400 
001222 
000300 
001204 
001164 
001146 



♦ TKS 
ITMPO 

♦ TMPl 
»TN 
»TPB 
♦TPFLG 

♦ TPS 

♦ TRAP 



001144 
001160 
001162 
000070 
001152 
001157 
001150 
026772 



$TRAP2 
»TRP - 
tTRPAD 

♦ TSTM 
♦TSTNM 
♦TTYIN 
♦TYPOS 

♦ TYPE 



027014 
000014 
027026 
000236 
001102 
025440 
024474 
023712 



♦TYPEC 

♦TYPEX 

♦TYPOC 

♦TYPON 

♦TYPOS 

♦UNIT 

♦UNITM 

♦USUR 



024124 
024244 
024272 
024306 
024246 
001212 
000242 
001224 



032576 
000000 
Errors datactad; 



000 
001 
0 



(RU.I.GBL.ABS.OVR) 
(RU.I.LCL.REL.CON) 



AsMMtolar atatistics 



Uork fila rcada: 
Uork fila writas: 
Siza of work fila: 
S i za of cora pool : 
Oparating systam: 



428 
330 

56656 Uords 
19402 Uords 



( 222 Pagas) 
( 74 Pagas) 



RSX-llM/PLUS (Under VAX/VMS) 



Elapaad tima: 00:05:59.63 

OKT ACO . BIC . COKTACO/CR/-SP/NL : TOC- ORION. MLB/ML . COKTACO/DS :GBL 



♦VECTl 001250 

♦VECT2 001252 

♦XOFF - 000023 

♦XON - 000021 

♦XTSTR 023400 

♦♦GET4- 000000 

♦OFILL 024471 

.♦X - 000232 
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COKTACO 


CREATED Br 


MACRO ON 


29 -MAR -85 


SYMBOL 


CROSS REFERENCE 








VHLvC 


REFERENCES 






9-393 


9-393 


Ho UK 1 


nocL.3ncL. 


64-55S0 


«64-5580 






64-5580 


»64-5580 






64-5580 


«64-5580 






64-5580 


64-5580 




■ UUvUUU 


9-393 


9-393 






9-393 


9-393 


APDi mo 




9-393 


9-393 






9-393 


9-393 


Annul 




9-393 


9-393 


Annul n 


. AAAAAA 


9-393 


9-393 


Annul 1 


■ nnnnnn 

■ yjyjsjsjyjyj 


9-393 


9-393 


Annul o 


m nnnnnn 

■ \/SJSJSJSJSJ 


9-393 


9-393 


Annul T 


m nnnnnn 


9-393 


9-393 


Annul A 


m (\f\f\f\C\f\ 


9-393 


9-393 


Annul ^ 


m nnnnnn 


9-393 


9-393 


Annuo 


■ nnnnnn 

■ uuuuuu 


9-393 


9-393 


Annu7 


_ AAAAAA 


9-393 


9-393 


AnnuA 


a AAAAAA 


9-393 


9-393 


Annu^ 


a nnnnnn 


9-393 


9-393 


AnnuA 


\Jv\j\J\J\j 


9-393 


9-393 


Annu7 


m nnnnnn 


9-393 


9-393 


AnnuA 


m AAAAHA 


9-393 


9-393 


Annuo 


a AAAAAA 


9-393 


9-393 


AnFurT 

MUC V w 1 


■ AAAAAA 

■ UUUUUU 


9-393 


9-393 




■ nnnnnn 


9-393 


9-393 




a nnnnnn 


9-393 


9-393 




■ nnnnnn 


9-393 


9-393 


APAT Al 




9-393 


9-393 


AMAnO 1 


. AAAAAA 


9-393 


9-393 


AMAnO? 


■ nnnnnn 


9-393 


9-393 


AHAnOX 


■ uuuuuu 


9-393 


9-393 


AMAnDA 


■ nnnnnn 


9-393 


9-393 


AMAMC1 


■ nnnnnn 


9-393 


9-393 


AMAMC9 


■ AAnnnn 


9-393 


9-393 




■ nnnnnn 


9-393 


9-393 




■ AAnnnn 

■ uuuwuu 


9-393 


9-393 


AMCflAn 


■ nnnnnn 


9-393 


9-393 




■ AAAnnn 


9-393 


9-393 




■ AAAAAn 


9-393 


9-393 




B nnnnnn 


9-393 


9-393 




- nnnnnn 


9-393 


9-393 


AMT vox 


■ nnnnnn 


9-393 


9-393 


AMT YDA 


■ uuuuuu 


9-393 


9-393 


APACQ 


. AAAAAA 

■ uuuuuu 


9-393 


9-393 


APDTnO 


a AAAAAA 


9-393 






■ nnnnAn 


64-5571 


«64-5S86 




« nnnnn i 


10-834 


28-2187 


APTSIZ 


- 000200 


10-831 


#64-5586 


AOTCOA 


" OOOlOO 


64-5571 


64-5586 


ASURCG 


- 000000 


9-393 


9-393 


ATESTN 


- 000000 


9-393 


9-393 



PAGE 1 



CREF V02 



SEQ 0161 



«64-5580 



37-3086 
064-5586 



45-3856 



64-5571 



64-5580 



64-5586 «64-5586 
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SYMBOL CROSS REFERENCE CREF V02 



SYMBOL VALUE REFERENCES 



AUNIT 


^ A AAA A 

" 000000 


9-393 


9-393 






























AUSUR 


■ 000000 


9-393 


9-393 






























AvECTl 


_ A/\/\AAA 

■ 000000 


9-393 


A 9 AV 

9-393 






























AVECT2 


A AAA A A 

■ 000000 


A VAV 

9-393 


9-393 






























BCSR 


■ 177520 


#8-374 


*37-3068 


•45 


-3860 


•45 


-3861 


•60 


-5109 


•64 


-5570 


•64 


-5570 


•64 


-5580 






BEIBA 


002206 


#10-633 


40-3411 


46 


9 A 4 A 

-3919 


48 


9 AA M 

-3984 


M A 

49 


-4056 


BA 

50 


-4146 


51 


-4221 


52 


•4302 


53- 


■4426 






53-4459 


54-4554 


55 


-4626 


56 


M ^ A A 

-4709 


56 


-4755 


57 


-4822 


58 


-4898 


59 


•4967 


60- 


•5070 






60-5085 


60-5085 


f A 

60 


e AA^ 

-5094 


60 


-5100 


« A 

60 


-5116 


60 


-5135 


61 


-5246 


61 


•5283 


61- 


■5302 






61-5326 


62-5371 


62 


e9a t 

-5382 


63 


KM ^A 

-5479 


64 


pe9 • 

-5531 


















BEICC 


A A AO^il 

002204 


vl 0-632 


ii A 9ii • A 

40-3410 


M A 

40 


9ii • C 

-3415 


46 


9Aa A 

-3918 


Jt A 

48 


9A A9 

-3983 


M A 

49 


-4058 


50 


-4148 


P A 

51 


-4224 


52- 


■4305 






53-4429 


53-4462 


54 


-4557 


55 


-4629 


56 


-4713 


57 


A A09 

-4823 


58 


A AA^ 

-4897 


PA 

59 


-4969 


60- 


■5072 






00-D007 


60-5102 


£ A 

60 


Clio 

-5110 


£. A 

60 


ct 

-5137 


61 


•5249 


61 


-5286 


61 


-5303 


61 


P9 0A 

•5329 


62- 


■5372 






02-53S3 


62-5390 


£ 9 

63 


-5481 


64 


ce»» 

-5533 






















DClCLR 


002212 


#10-635 
































DP t CD t 

BEICRI 


002210 


At A C^A 

#10-o34 


Jl A 9 Jl t ^ 

40-3412 


A A 

40 


YA t Y 

-3413 


A t 

41 


Y Jl AY 

-3493 


41 


-3496 


A 4 

41 


-3504 


A \ 

41 


9PA A 

-3508 


41 


9P • A 

-3519 


41- 


-3523 






41-3534 


A t Yd O 

41-3538 


42 


Y£ t A 

-3619 


42 


Y^ 


42 


Y£ Y£ 

-363c 


A O 

42 


f g YA 

-3639 


A O 

42 


-3653 


42 


9^ C£ 

-3656 


42- 


■3670 






42-3673 


AY Y7 t t 

43-3711 


43 


-if 22 


Jl Jl 
44 


YT AT 

-3787 


A A 

44 


Y7AA 

-3790 


M A 

44 


-3816 


A £ 

46 


9 AO 4 

-3921 


A O 

47 


9 APP 

-3955 


48- 


■3987 






40-3900 


A A A AC A 
47-4059 


49 


A AAC 

-40o5 


CA 

50 


A t A A 

-4149 


CA 

50 


A t CC 

-4155 


c t 

51 


A -^Y Y 

-4233 


51 


Jl ^YJi 

-4234 


52 


il 9 • A 

-4314 


If o 

52- 


A 9 4 P 

■4315 






AAttk 

53-4430 


CY AAYO 
53-4437 


53 


A A7 t 

-44 f 1 


53 


AA7^ 

-44 f 2 


CA 

54 


ACAA 

-45oo 


CA 

54 


-4567 


55 


Jl £ Y£ 

-4636 


55 


il £ 9 ^ 

-4637 


C^ 

56 


■4722 






5o-4 Idi 


Cil A^ilt 
5o-4 fOl 


50 


-4 fO£ 


57 


A AOA 

-4024 


CT 

57 


A Q^C 

•4025 


C A 

50 


A AAO 

-4902 


CO 

58 


Jl AAY 

-4903 


59 


A A9A 

-4970 


C A 

59' 


A A9 4 

■4971 






00-50 f 3 


ilA CA^A 
00-50 f4 


&.A 


CAAA 
-5000 


AA 
OO 


CAAA 
-5O07 


^A 

oo 


ct AY 

-5103 


AA 

60 


C t AA 

-5104 


£ A 

60 


C t t A 

-5119 


£ A 

60 


C 4 OA 

-5120 


60- 


IT 4 9 a 

-5138 






00-5140 


£.t COCA 
Dl -5c5U 


Dl 


COC1 
-5251 


ol 


COA7 
-520 f 


Dl 


COA A 

-5200 


£ t 

61 


CYAA 

•5306 


61 


-5308 


£ 4 

61 


CYY « 

-5331 


61 


5333 






Oe-53 r5 


AO cnA 
Oc-33 rO 


DC 


CTAA 
-3304 


C2 


CYAC 
-53o5 


62 


CYOt 
-5391 


AO 

o2 


CYOO 

•5392 


63 


-5485 


63 


CA n£ 

-5486 


64- 


-5537 






04-5530 
































opt f^D'^ 

BC1CR2 


AA^^ 1 il 

002214 


At A 

•10-030 


AC Ya7Y 
45-3o fi 


45- 


YA*? A 
- 30 rO 


AA 
40 


YOOA 

■ 3920 


46 


YO^A 

■3924 


A 7 

4 f 


YOCY 

-3953 


47 


-3958 


A "J 

47 


-3961 


49 


-4057 






CA A% A^ 

50-414 / 


Ct AOOO 

51-4222 


52- 


AYAY 

■4303 


CT 

53 


AA07 
-442 t 


53 


A AAA 

-44oO 


CA 

54 


Acce 
-4555 


55 


-4627 


CC 

55 


il £ 9n 

-4639 


56 


-4710 






56-4711 


56-4725 


56- 


■4756 


57 


-4827 


59 


-4968 


60 


-5071 


60 


-5086 


60 


-5101 


60- 


■5117 






D0-513O 


£A CtAa 

DU-3140 


Ol- 


C3A7 
-324 f 


Ol- 


C3AA 
-3204 


Ol- 


dl c 
•3313 


At 

ol 


d07 

-532 ' 


61 


•5341 


62 


-5374 


63 


■5480 






D4-553e 
































DP 1 nD 

BEIOB 


002202 


A1A ilYI 


m ft 1 ft 


37- 


-3332 


AA 

40- 


T001 

■3771 


AO 
47 


AACC 
■4035 


CA 
50 


A t AC 

-4145 


50 


-4162 


c t 

51 


A ^ ^Y 

-4223 


52 


■4304 






5C-43C3 


CY AA OA 


D3' 


AACn 


CT 

33- 


AACO 
■4432 


33- 


AAA1 
■4401 


CY 

53 


AAAY 

-4403 


53-4485 


54- 


A CCA 

-4556 


54-4575 






CA AC77 
34-4 J f f 


CC AAOA 


CA 
30- 


A7 1 3 
•» ' Ic 


CA. 
30- 


■^ r Ov 


CA 
30 


A7AA 
f 04 


CA 
30 


AAOA 
-4070 


60 


■5079 


AA 

60 


CAOA 

-5094 


60- 


■5110 






CI 3C 
DO-51e5 


Dl-3e40 


Ol- 


-3203 


A1 
Ol- 


.C37C 
■32 '3 


A1 
Ol- 


COAC 
■3203 


At 

Di- 


-5320 


62 


■5373 


62 


5387 


62- 


■5394 






03-5470 
































OP t TkIT 


A A 4 ? 

OOl rc4 


At A COO 


44-3 f 70 


*AA. 


- 30V3 


*AA. 


■ 30Xc 


*AA. 


, YAt A 
■ 3010 


















OP 1 DCLJ 


OOcccO 


At A £111 

£1 CVAC 
D1-5305 


A1 -TAAA 
4 A - 3400 

&1 CISC 




- 301c 


AT. 


■ 3 r Ic 


AA. 


■3 fOSJ 


ce 

33- 


AA3C 
■4023 


56 


■4717 


5 1 


Aat A 
-4B10 


60 


5132 


OP 1 cu 


A1 KC1 O 


44-3 » f 7 


AAA VA1 1 
W44- 3011 






























OP 1 WP^ 


00221D 


A1A £.T7 


At YAOO 
41 - 3472 


A1 

41- 


33U2 


A1 

41- 


■XCI 7 
- 331 < 


A1 

41- 


-3332 


AO 
42- 


YA1 A 
-30lO 


42 


3633 


A ^ 

42 


YACA 

-3650 


42 


3667 






AA T^^O 
44-3 f f 7 


Aft TOAC 
40-37O3 


cc 


A A OA 
4024 


CA 
30- 


A71 A 
•4 f lO 


C7 
3 f ■ 


AA1 C 
■4015 


AA 
OU- 


Ct Y t 

-5131 


61 


-5304 


61 


CY -3A 

-5324 






OP^O A 


00222D 


A 1 A £A£ 
fflO-04o 


at co&c 
Ol -3203 






























Bc2CC 


AA^^^A 

002224 


A 1 A CA C 

ffl0-O45 


£.t COiLA 

01-520O 


































At n.AAA 
































BE2CR1 


002230 


#10-647 


44-3789 


44- 


3791 


44- 


3811 


61- 


■5269 


61- 


5270 














BE2CR2 


002234 


#10-649 


61-5266 






























BE208 


002222 


#10-644 


61-5267 






























BE2INT 


001726 


#10-600 


44-3800 


*44- 


3804 


•44- 


3813 


•44- 


3817 


















BE2PSU 


002240 


#10-651 


44-3782 






























BE2SV 


015532 


44-3781 


#44-3816 






























BE2VEC 


002236 


#10-650 


44-3781 






























BITO 


- 000001 


#8-277 


12-989 






























BITOO 


- 000001 


#8-277 


8-277 


10- 


697 


19- 


1428 


44- 


3790 


44- 


3791 


57 


4801 


57- 


4804 


64- 


5522 



COKTACO CREATED BY MACRO ON 29-MAR 85 AT 12:57 PAGE 3 
SYWOL CROSS REFERENCE CREF V02 



SYneOL VALUE REFERENCES 









64-5545 








BZTOl 


• 


000002 


08-277 


8-277 


16-1379 


19-1425 








25-1674 


26-1959 


49-4053 


49-4076 


BZT02 


• 


000004 


06-277 
64-5522 


8-277 
64-5525 


18-1379 


19-1425 


BIT03 


m 


000010 


08-277 
47-3953 


8-277 


16-1282 


33-2698 


BZT04 


m 


000020 


08-277 
45-3873 


8-277 
45-3878 


10-842 
57-4802 


25-1876 


BIT05 


m 


000040 


08-277 


8-277 


10-792 


10-842 








21-1616 


22-1656 


22-1658 


22-1667 








23-1757 


23-1758 


24-1800 


24-1802 








26-1953 


26-1961 


27-2074 


27-2096 








29-2247 


30-2319 


30-2384 


31-2487 








35-2827 


35-2852 


37-3088 


38-3231 








5''-4851 


57-4855 


64-5526 




BIT06 


m 


000100 


08-277 


8-277 


28-2182 


28-2183 








32-2615 


33-2650 


33-2679 


33-2680 








45-3860 


45-3864 


63-5497 


64-5527 


BIT07 


m 


000200 


08-277 


8-277 


18-1383 


27-2104 


BIT08 


m 


000400 


08-277 


8-277 


16-1281 


18-1378 








24-1807 


25-1873 


26-1958 


27-2066 








30-2358 


30-2366 


30-2374 


31-2504 








31-2555 


31-2562 


31-2564 


32-2600 








33-2656 


33-2664 


33-2670 


33-2694 








34-2767 


34-2775 


35-2829 


35-2851 








37-3149 


37-3158 


39-3323 


55-4639 








56-4767 


56-4769 


57-4810 


57-4812 








60-5148 


61-5315 


61-5341 


63-5466 


BZT09 


m 


001000 


08-277 


8-277 


64-5570 


64-5570 


Bill 


m 


000002 


06-277 








BITIO 


m 


002000 


06-277 


29-2233 


29-2237 


32-2605 


BITll 


m 


004000 


06-277 


29-2233 


29-2237 


32-2605 


BIT12 


m 


010000 


08-277 


29-2233 


29-2237 


32-2605 


BIT13 


m 


020000 


08-277 


25-1900 


26-1984 


26-1993 


BIT14 


m 


040000 


08-277 


25-1900 


26-1984 


26-1993 


BIT15 


■ 


100000 


08-277 
36-3010 


23-1753 


25-1900 


26-1964 


BIT2 


■ 


000004 


08-277 








BIT3 


■ 


000010 


08-277 








BIT4 


■ 


000020 


08-277 








BIT5 


■ 


000040 


08-277 


10-830 


11-892 


11-903 








51-4241 


52-4308 


52-4317 


53-4432 








55-4632 


55-4652 


56-4699 


57-4808 


BIT6 


■ 


000100 


08-277 


10-830 


36-2983 


63-5459 


BIT7 


■ 


000200 


08-277 


15-1217 


15-1225 


49-4065 








54-4567 


55-4637 


56-4723 


57-4825 








60-5120 


60-5140 


61-5251 


61-5270 


BZT8 


■ 


000400 


08-277 


17-1327 


17-1344 


18-1398 








24-1824 


25-1916 


26-2017 


27-2160 








36-2982 








BIT9 


■ 


001000 


08-277 


29-2233 


29-2237 


32-2605 



3 

SEQ 0163 



20 


-1463 


'^A 

20 


-1477 


21- 


-1551 


22 


-1664 


24- 


■1606 


49 


A A^A 

-4079 


















21 


-1551 


22 


-1664 


24- 


-1606 


25- 


-1674 


26- 


■1959 


33 


-2711 


37 


TA£^ 

-3067 


T^ 

37- 


-3151 


37' 


■3138 


45- 


■3656 


26 


-1961 


27 


^ 4 4 A 

-2119 


33 


-2711 


33 


-2632 


36 


-3235 


oi 
cl 




el 


-13* 1 


0 1 
el 


-13DD 


0 4 

dl 


4 c^c 

-1573 


21 


-1612 




-loos 


OT 


1 ^T£ 

-1 lib 


OT 

23 


4 ^T A 

-173B 


OT 

23 


4 ^AT 

-1743 


23 


-1747 




-loll 




1 AOT 


oc 
<:3 


4 Ace 


oc 
e3 


4 A£A 

-IBOB 


25 


-1876 


e / 


OT 


0^ 


01 CO 


OA 

do 


0 4 A A 


OA 


OOOQ 

-dddo 


29 


-2230 


TO 

id 


-ebUl 


TT 


-eb31 


TT 

33 


0^ 4 c 
-2 f 13 


TA 

34 


O^A^ 


TA 

34 


-2774 




- 


A^ 
*3 


-3B3* 


*3 


T A£ 4 

-3Bol 


CT 

33 


A A 4 4 

-4411 


36 


-4744 




-ceol 


OO 


OTI £. 


TA 
30 


OT AC 


T4 

31 


OA A A 


TO 

32 


•2599 




•c »1* 


lA 


07 A A 

-2740 


VA 

34 


-2773 


TC 

33 


^MA A 

-2849 


33 


t ACA 

-26S0 


64 


-5528 


















37 


-3068 


45 


-3862 


60 


-5109 










IT* 


1 A ^A 


19 


1 ill A 

-143t 


dQ 


4 ^ £ 0 
-1462 


0 4 

21 


4 CCA 

-1550 


22 


-1663 




-dm 




-cc3t# 


30 


OTOA 

•2329 


TA 
iO 


-2336 


V A 

30 


-2350 


■■1 


-c311 


T < 

Al 




31 


OCOA 


T 4 

31 


OCT A 


T 4 

31 


OCAC 

-2545 




-cDUc 


TO 




3<f 


OIL 4 


TT 

33 


0£_A A 

-2649 


TT 

33 


-2654 


oo 


.971 A 
•C 1 ID 








37C4; 
•e r3e 


TA 

34 


07CA 

•d r 30 


TA 

34 


•dfOd 


35 


-2666 


36 


-2964 


36 


-3019 


37 


-3067 


37 


-3143 


56 


-4693 


56 


•4695 


56 


-4725 


56 


-4746 


56 


-4746 


S7. 


HOC 9 


C7 




•\7. 
O r " 


.AACV 
■*033 


C7 
3 1 


-4B30 


3 r 


•403B 


63- 


-5469 


63 


-5470 


64 


-5570 










64- 


-5560 


64- 


-5580 














OH- 
























OH- 


■33 iM 
















-CO 73 


HO* 
















©•f ■ 


"330V 


















ox ' 


-3CHO 


01 - 


C3^& 
-3c30 


&A 

O*" 


-33 >u 














37. 






3£AA 

-cDOB 


TT 

33- 


•d fv^ 


TC 

33- 


OAAA 

-2BBO 


11- 


■907 


36- 


2980 


49- 


-4045 


50 


-4132 


51 


-4227 


53- 


-4441 


53- 


-4465 


53- 


■4474 


54- 


-4560 


54 


■4569 


61- 


5330 


63- 


5467 














63- 


5460 


















50- 


4155 


51- 


4234 


52 


4315 


53 


•4439 


53 


■4472 


58- 


4903 


59- 


4971 


60- 


5074 


60 


■5089 


60 


5104 


61- 


5288 


61- 


5333 


63- 


5486 


64 


5538 






20- 


1479 


21- 


1617 


22- 


1687 


23 


1729 


23- 


1761 


29- 


2227 


29- 


2249 


30- 


2315 


30 


2386 


31- 


2486 



COKTACO 


CREATED BY 


MACRO ON 


29 MAR -85 


SYMBOL 


CROSS REFERENCE 






SYMBOL 


VALUE 


REFERENCES 


BPTVEC 


> 000014 


08-277 




CCR 


- 177746 


#8-378 




CKSUR 


- 104407 


64-5570 


64-5580 


CR 


• 000015 


•8-277 


64-5571 


CRLF 


• 000200 


•8-277 


10-836 


CT8LE 


002054 


•10-618 


36-2965 


OCSR 


• 177730 


JLM ■» TIP 

•8-375 


♦10-697 






15-1228 


15-1230 






*18-1398 


•19-1424 






. ^ a 4 CCA 

*21-1SS0 


*21-1551 






*24-1807 


^ 1 AAA 

♦24-1808 






♦27-206O 


27-2140 






*32-2600 


♦32-2616 






*36-29B2 


VA4 A 

♦36-3019 






•49-407O 


AA AA77 

49-4077 






•57-4010 


aC7 AA4 9 

♦57 -4812 


DOZN 


002254 


•10-697 


^A 4 AA7 

20-1467 






91-2505 


T4 

31-2522 






35-2679 


TA ^OOO 

36-2999 


OOISP 


■ 177570 


•o-t f ' 


O TOT 

9-393 


OOOUT 


002242 


•lO-O fc 


1 A 1 TA7 


ODR 


• 177732 


wB - O f O 


* 1 A iL70 
♦lO-O Id 






•ee-lD rO 


aOT 4 7C4 






AO AA7T 




OHl 


031422 


1 A TOO 


1 A AA7 


0H13 


032013 




1 A A70 
lU-^ ITT 


0H16 


032066 


1 A AQ3 








XU- O f O 


4 A.eOA 


0H2 


031471 




1 n.AI 3 


0H20 


032125 


1 A AOA 


»04 - 30^1 


0H23 


032205 




At^A C&AT 


0H27 


032316 


1 A CA3 


MLA CAAC 


0H3 


031563 


1 A A 1 O 


AAA CAT1 


0H4 


031653 


1 A AOiL 


AAA CATT 


0H5 


031731 


1 A ATT 




OISPLA 


001142 


AO TOT 

WV- OTTO 


aIA ATI 


OISPRE 


000174 


AA TAT 


1 A ATI 


OSUR 


• 177570 


AA 

90-c f f 


O TOT 

9-39* 


OTl 


032414 


1 A AAA 

10-400 


f A AAA 

iO-440 


0T16 


032474 


1 A AOT 


4 A CAC 






1 A CAC 


4 A C04 

10-591 


0T2 


032426 






0T20 


032504 


10-499 


•64-5653 


0T21 


032520 


10-579 


•64-5654 


0T23 


032530 


10-516 


•64-5655 


0T27 


032550 


10-543 


•64-5656 


0T3 


032444 


10-421 


•64-5650 


OTSO 


0S2S64 


10-549 


•64-5657 


0T4 


032460 


10-428 


10-435 


EMTSAV 


002530 


•10-830 




EMTVEC 


- 000030 


•8-277 


♦10-831 


EMI 


0272S4 


10-398 


•64-5595 



113 



12:57 


PAGE 


4 












CREF 


V02 










64-5580 


•64 


-5588 










64-5571 














10-836 


64 


-5571 


64 


-5571 






15-1201 


♦15 


-1206 


15 


■1207 


15- 


■1209 


15-1235 


♦16 


-1281 


♦17 


-1327 


♦ 17- 


■1344 


♦19-1425 


♦19 


-1428 


♦19- 


-1439 


♦20- 


-1462 


♦21-1617 


♦22 


-1663 


♦22- 


-1664 


♦22- 


-1687 


♦24-1824 


♦25 


-1873 


♦25- 


-1874 


♦25- 


-1916 


♦27-2160 


♦29 


-2227 


♦29- 


-2249 


♦30 


■2315 


♦33-2649 


♦33 


-2716 


♦34- 


-2746 


♦34- 


2775 


♦37-3067 


37 


-3143 


♦37- 


-3149 


♦37- 


•3151 


♦49-4079 


♦56- 


-4693 


♦56- 


-4695 


♦56- 


-4746 


♦57-4649 


♦57 


-4653 


♦57- 


-4656 


♦57- 


•4856 


25-1893 


26 


-1976 


27- 


-2139 


30- 


■2326 


31-2539 


31- 


-2556 


33- 


-2662 


33- 


•2664 


36-3009 














10-631 














21-1592 


24- 


•1821 


26- 


-1968 


33- 


-2663 


18-1388 


18- 


-1390 


19- 


-1433 


19- 


■1435 


25-1896 


25- 


-1899 


26- 


-1980 


26- 


-1962 


10-460 


10 


-548 


•64 


-5627 






•64-5637 














10-510 


10- 


■523 


10- 


529 


10- 


554 


10-590 


•64- 


-5639 










10-453 


•64- 


-5629 










10-472 


10- 


■485 


10- 


■535 


•64- 


■5635 


♦10-831 


64- 


■5570 


64- 


■5560 






10-831 














10-461 


•64- 


5648 










10-511 


10- 


524 


10- 


530 


10- 


555 


•64-5652 














10-455 


•64- 


5649 










10-442 


10- 


467 


10- 


474 


10- 


480 



♦10-831 



SEQ 0164 



15- 


■1218 


♦ 15- 


1223 


15- 


1225 


A 4 A 

• 10- 


1 T'7A 


* 4 A 

• IB- 


4 T70 

1379 


4 m 

16- 


1383 


♦20- 


-1463 


♦20- 


1477 


♦20- 


1479 


♦23 


■1729 


23- 


1753 


♦23- 


■1761 


♦26 


-1958 


♦26- 


1959 


♦26- 


■2017 


♦30- 


■2386 


•31- 


2466 


♦31- 


2564 


♦35- 


-2829 


♦35- 


2666 


♦36- 


■2964 


♦37- 


•3158 


♦39- 


3323 


♦49- 


■4053 


♦56- 


•4746 


♦56- 


4767 


♦56- 


■4769 


♦63- 


■5466 


♦63- 


■5470 






30 


-2351 


30- 


■2367 


31- 


■2496 


34 


-2752 


34- 


■2761 


35 


■2662 


33 


-2687 










20 


-1470 


20 


1473 


20- 


■1475 


36 


■3013 


49- 


■4067 


49- 


■4071 


10- 


-560 


10 


566 


10 


572 


10- 


■561 


10- 


567 


10- 


573 


10- 


487 


10- 


537 


•64- 


5651 



J13 



COKTACO CREATED BY 


MACRO ON 


29 -MAR -85 


SYMBOL 


CROSS REFERENCE 






SYMBCH. 


VALUE 


REFERENCES 


EMIO 


027674 


10-446 


064 - 5602 


EMU 


027746 


10-452 


064-5603 


EM12 


030020 


10-459 


064 - 5604 


EM13 


030072 


10-465 


« ^ A t ^ AC 

064-5605 


EM14 


030141 


10-471 


064 - 5606 


EM15 


030171 


10-478 


Jl£ il C£ AO 

064-5607 


EM16 


030220 




064-5608 


EM17 


030302 


1 A AOt 

10-491 


064-3609 


EM2 


027300 


1 A A^A 

10-404 


064-5596 


EM20 


030335 


10-497 


064-5610 


EM21 


030413 


1 A CAY 

10-303 


064-5611 


EM22 


030460 


1 A CAA 

10-509 


A£ji e£ « 

064-5612 


EM23 


030534 


1 A C 1 C 

10-515 


064-5613 


EM24 


030546 


% A COO 

10-522 


064-5614 


EM25 


030566 




VD4-3d13 


EM26 


030636 


10-534 


064-5616 


EM27 


030721 


1 A 1 


VDH-3D1 1 


EMS 


027342 


1 A ^11 


CC07 


EM30 


030756 


1 A 


At^A CiL 1 A 
VDH-3D10 


EM31 


031017 


1 A 


ffDH-3Dl7 


En32 


031063 


1 A CCQ 


ML A CiLOA 
ffOH - 3DeU 


En33 


031130 


1 A 

1U-3D3 


VD^-3Dcl 


EM34 


031204 




»Oh - jOcc 


EM35 


031244 


1 A 


w0*-30c3 


EM36 


031303 




WO^-30e^ 


EM37 


031351 


1 A CAQ 


v0^-30e3 


EM4 


027406 


- A A 


WO^-33tO 


EMS 


027464 


1 A 


»0^-33»» 


EH6 


027562 


1 A AXO 


W0'»-30UU 


EM? 


027625 


1 A A 


C&A 1 


ERRNUM 


001714 












OH -30 30 


ERROR 


• 104000 


AA 

wO -e.il 


1 A 7 1 <^ 

lu- f 10 






\ A 11 TA 


1 c 101^ 






1 A 1 XQI 


1 A 1 TOC 






1 QA1 


0£ 1 OAC 
cO- I7O3 






VA 


TA D%AO 
3W-c3Hc 






T1 


T1 








TT 37AA 






T<1 TA 1 1^ 
do- dUX3 


T7 T1A<^ 






- A 
^A-03AU 


HX 03c3 






44-3802 


45-3876 






50-4164 


51-4246 






56-4732 


56-4766 






60-5127 


60-5144 






61-5337 


61-5343 


ERRVEC 


■ 000004 


08-277 


10-767 






♦37-3137 


♦37-3152 


ERTYPE 


026346 


64-5580 


064-5582 


GNS 




8-383 


8-383 






64-5588 


64-5588 






64-5588 


64-5588 



PAGE 5 



CREF V02 



SEQ 0165 



64 


-5648 


64 


-5649 


64 


-5650 


64-5651 


64 


-5652 


64 


-5653 


64 


-5654 


64 


-5657 
























11 


-917 


12 


-985 


12 


-995 


12-1008 


12- 


-1018 


13 


-1072 


13 


-1083 


15 


-1227 


15 


-1231 


15 


-1236 


16-1290 


16- 


-1296 


17 


-1334 


IB 


1385 


19 


-1436 


20 


-1476 


21 


-1599 


21-1603 


22 


-1680 


23 


-1755 


24 


■1829 


26 


-1994 


27 


-2086 


27 


-2111 


27-2132 


27- 


-2142 


29 


-2238 


29 


-2246 


30 


-2357 


30 


-2364 


30 


-2373 


30-2380 


31- 


-2510 


31 


-2516 


31- 


-2527 


31 


-2550 


31- 


-2561 


31 


-2568 


32-2608 


32- 


-2614 


33 


-2669 


33- 


-2675 


33 


■2707 


33- 


-2713 


34 


-2766 


34-2772 


35 


2868 


35 


-2882 


36 


-3012 


37- 


■3131 


37- 


-3139 


37 


-3154 


38-3246 


38- 


-3250 


40- 


■3417 


41- 


-3498 


41 


-3540 


42- 


-3623 


42 


-3640 


42-3657 


42- 


3674 


43- 


■3727 


44- 


■3798 


45- 


■3883 


46- 


-3923 


47- 


■3960 


48-3993 


48- 


3996 


49- 


-4075 


49- 


■4092 


52- 


■4325 


53- 


-4455 


53- 


-4488 


54-4580 


55- 


4641 


55- 


■4645 


56- 


-4727 


57- 


■4829 


57- 


-4834 


58- 


■4910 


59-4982 


60- 


-5081 


60- 


■5096 


60- 


5112 


60- 


-5150 


61- 


-5258 


61- 


■5277 


61-5295 


61- 


5298 


61- 


■5311 


61- 


5317 


62- 


-5389 


62- 


-5396 


63 


-5495 


63-5500 


64- 


5542 










♦10- 


-768 


•10- 


769 


♦10- 


783 


10-831 


♦10- 


831 


♦10- 


831 


37- 


3136 


♦37- 


-3159 


64- 


5570 


♦64- 


-5570 


♦64-5570 


♦64- 


5570 










10- 


836 


64- 


5561 


64- 


5561 


64-5588 


64- 


5588 


64- 


5588 


64- 


5588 


64- 


5588 


64- 


5588 


64- 


5588 


64-5588 


64- 


5588 


C4- 


5588 


64- 


5588 


64- 


5588 


64- 


5588 


64- 


5588 


64-5588 


64- 


5588 


64- 


5588 


64- 


5586 
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COKTACO 
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MACRO ON 
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PAGE 6 














C VMO Ol 

b iHBUL 


roncc occcockirc 








t*OCC U/N1 














C VMDni 

3 TmuL 


VML vC 


REFERENCES 


















u 1 own 




10-836 


#64-5588 


















HT 

n I 


■ WWXX 


•8-277 


64-5571 


ft4 ^^71 


















' UUUUcU 


♦8-277 


•10-831 


*1A All 




















»10-817 


40-3408 




TCI 1 

42 -Soil 


A^ TCT9 

42-3632 


A 9 

42 


-3o49 


42-3666 


43-3710 


44-3773 






45-3866 


46-3914 




10B9 


a A A/\A/\ 
4t»-4040 


CA 
30 


-4131 


CI A^% A 

31-4214 


52-4295 


53-4415 






54-4547 


55-4619 






30-40T»3 


37 


-4732 


&A CA&C 
6U-3U63 


CA 

60-3132 


61-5241 






61-5321 


61-5345 


t^O CTiL7 
DC-3AD r 


DA -9430 


^A 

64 -3321 














«8-278 
























«8-278 
























»8-278 






















■ X r s dOD 


»8-278 






















X * c O r V 


«8-278 






















■ 1 73T7a 
X ' c O ' c 


#8-278 






















X ' cO 1 ^ 


#8-278 






















X r CO r O 


#8-278 






















■ 1 73X3ft 
X ' c OcU 


#8-278 






















X ' cOcc 


#8-278 






















■ 1 79'19A 
X f c Oc** 


#8-278 




















i/npnBT 


X r cOcw 


#8-278 






















X f cO 


#8-278 






















X ( c J 


#8-278 






















• 179HA 
" X * C<9<9*v 


#8-278 






















■ 1 79111% 
X f COOw 


#8-278 




















kTPABO 


X 1 cO*»\/ 


#8-278 




















kTPABI 


■ 179149 
X ' CO^C 


#8-278 




















XTPAB7 

IN x» 


a 179144 


#8-278 






















■ 17914ft 


#8-278 




















kTPABA 

iNXr 


■ 1791SO 


#8-278 






















■ 1791S9 


#8-278 




















I^TPABft 


a 1791^4 
X f CO 


#8-278 


•10-773 


•10-775 


10-777 


10-847 


*91 
*cx 


. 1 SftA 
X ^ww 


91.1 SQ^ 
CX -Xw73 


*91 - 1 ftOA 


*99 Ift71 
•ce- ID ' 3 






•23-1740 


•23-1744 






C ^ X 


*C J 


X7XV 


*9^. 1 Q1 9 
*c J- X7Xc 


9S- 1Q11 


*9ft 1079 
• cD- 17 f e 






•26-1979 


•26-1989 


•26-1998 


•P7-P076 

*C ■ CN# f w 


•P7-P07A 

f CV f l> 


•97 

*C 1 


CV7V 


*97-91 9ft 
*c r -clcD 


97 914ft 
c r cl4D 


*97 

•2 » -2134 






•38-3241 


•38-3254 


3a-3P55 


•53-4414 


*S4.4S4ft 




.4A1 7 


^7-4A41 


• 3 f -40*0 


CA cccc 
64-3033 


^ Xr Wf r 


■ 1 79mA 


#8-278 




















IN Xr 


X ' c o w 


#8-278 






















a 1 791A9 


#8-278 






















■ 1 791A4 


#8-278 




















IN Xr J 


X r cO\/v 


#8-278 




















IN X' 


■ I791IO 
X r cOXv 


#8-278 




















IN Xr 


■ 179119 
X ' coxc 


#8-278 




















IN x~ 


■ 179114 
X ' K ox^ 


78-278 




















I^TPnB7 

IN x~ ' 


■ 17911 ft 
X r cOXw 


#8-278 






















a 177714 


#8-377 


10-791 




1 ft- 1 97A 
XO XC * o 


*1 ft. 1 9A1 
*Xv- xcoo 


1ft. 


. 1 9A4 


1 ft. 1 9Aft 
ID- XcOD 


1ft 1 0KU 


* 1 ft 1 9AQ 
•ID- lc07 






16-1295 


21-1547 




*91 - 1 S7A 
*CX X J r O 


91-1 ^A1 
CX-X30X 


*91 . 


. 1 ft14 


99. 1 ft^A 


91. 1 71» 


91 1 749 






•23-1743 


•23-1760 


OA - 1 AOP 


9S- 1 AftA 


9ft- 1 Q^l 
CW-X730 


97. 
c f ■ 


.90ftQ 


97.9074 
c f -cU 


97 . 90QA 
c f - cU70 


*97. 9 1 OO 






27-2101 


27-2105 




97-910Q 

C ' CX VT 


*97-91 lO 
Vc ' cxxv 


*97. 
*c f ■ 


.91 97 
cXc t 


*97.91 SI 
*c r -cX^X 


97.91 S9 


*97.91 S7 
*c f -cl3 » 






•28-2182 


28-2183 




*94-9919 
•cy ccoc 


9Q-9911 
C7-CCOO 


9Q. 
C7" 


.991S 


9Q- 991ft 
C7-CCOO 


*9Q.991Q 
•C7-CC07 


9Q.9940 

C7-CC^V 






29-2243 


29-2244 


•30-2316 


30-2322 


•30-2329 


30- 


■2330 


•30-2336 


30-2337 


•30-2350 






30-2352 


•30-2358 


30-2359 


•30-2366 


30-2368 


•30- 


2374 


30-2375 


•30-2385 


•31-2488 






31-2491 


•31-2504 


31-2506 


•31-2511 


31-2512 


•31- 


2521 


31-2523 


•31-2528 


31-2529 






•31-2538 


31-2540 


♦31-2545 


31-2546 


•31-2555 


31- 


2557 


•31-2562 


31-2563 


•32-2599 






•32-?602 


32-2603 


32-2605 


32-2607 


•32-2609 


32- 


2610 


•32-2615 


•33-2650 


•33-2654 



SEQ 0166 

















L13 




rocATPn RY 




9Q-MAO.A1 AT 


19. ^7 

Xs : 9 ' 




7 
r 




SYMBOL 


CROSS REFERENCE 








CREF 


V02 


SYMBOL 


VALUE 


REFERENCES 














33-2655 


♦33-2656 


33-c09 ' 


«oo 


-2664 


33-2665 






♦33-2679 


♦33-2680 


YT.9AAA 


OO 


-2690 


33-2692 






33-2701 


W '%^A^ 

33-2704 


YT-97nA 
Od-c r WO 


OO 


-2708 


33-2710 






Til 9^C^ 

34-2757 


♦34-2756 


'XA.97^Q 


^XA. 
*OH' 


-2762 


34-2763 






♦34-2773 


OB O^ 

35-2827 


*'<S-9AAQ 
•OJ-tOHy 


*09 


-2850 


♦35-2851 






37-3145 


30-3213 


'YA.'V91 A 
OO- OcXO 


xn 

OO 


-3231 


51-4209 






56-4744 


♦56-4747 


*SA-A7AA 


9 r 


-4809 


•57-4811 






63-5460 


♦63-5469 


AT-^AOI 
00-9H7X 


♦OO" 


-5497 


♦64-5527 


1 c 




WO-2 7 7 


64-5571 


AA . ^^7 1 








MAPMA 


■ 1 

X r vc vc 


ffB-351 












HAPMOO 


" X ( vcvc 


9o-eOD 


0-351 


*9'X_ 1 7AA 


*9A. 


4 A 4 A 

-1810 


♦26-1974 






♦oO-<;oex 


♦31-2490 


V00-C090 


• OH ' 


-2750 


OAA4 

♦36-2981 






♦57-48x4 


aaak 
♦57-4845 


*A1 .^9A9 
VOX 9cOc 


A1 . 
OX' 


-5290 


♦63-S466 


MA0MA1 

nwrnv J, 


X rUcVQ 


AA OAA 


0-393 


*T^.9AAn 
V09-K0DU 


• 99" 


9AAi 

-2861 


aVK 4A^^ 

*35-Zo77 




X r VcXC 




A VCC 












X r VcXD 


AA 


A 












X f Uccc 


AA 90A 
WO-«T»4 


A TKO 












■ 1 7099A 


AA 


A xm 
0-3OX 










MAPMAft 


■ 1 7A9Y9 


AA 90A 


A X/lX 
B-303 










MAPHA7 


X r VcdO 


WO- 3 WW 


A XHK 










MAPH1 


X ( VC Vw 














MAPUI e\ 


■ 1 7n9A9 


AA xno 












MAPH1 1 


■ 1 7n9AA 
X f v/c**o 


AA - TOA 












MAPH1 9 


■ 1 709^9 
X fsjc^e 


IfO- OWO 












MAPUI X 


m 1 7A9S<i 
X r VC^W 














MAPH1 A 


■ 1 7A9<i9 


AA .HO 
WO- OXW 












MAPH1 ^ 


m 1 7A9<i<i 
X r VCww 


AA . 'X 1 9 
WO- OXc 












MAPM1 A 


■ 1 70979 


AA . X 1 A 
WO- OX^ 












HAPM1 7 


m 1 7097A 


AA - Y 1 A 
WO- 3XO 












MAPM9 


X r VcXc 


AA 'VC^ 
WO 099 














■ 1 70'S09 

■ X f vOVc 


AA Tl A 

WO-OXO 














X f VjVO 


AA T90 
WO - 3cV 














X r V JXc 


AA T39 
WO- oes 














X ' V JXw 


AA XOA 
WO - Oc** 














■ 1 70^99 


AA 

WO- 3cO 














m 1 70^9A 
X rVJCQ 


AA T3A 
vO- OcO 














■ 1 70^'^9 

X ivOOC 


AA TTA 

WO- OOU 














m 1 70'^T#< 
X rVOOQ 


AA TT9 

WO- OOe 












MAPMT 


" X rUcXD 


AA TC7 

WO - 33 f 














■ 1 7nTA9 


AA XXA 
WO- 












MAPMY1 


■ 1 70^AA 


AA W& 














■ 1 70Y^9 

X 'Ud^C 


«8-338 












HAPMT^ 


a 1 70Y^A 
X r v03Q 


JA.A V A /% 

wo- 340 












HAPUYA 


a 1 70Ylt9 

X f VdOC 


«8-342 












MAPU^^ 


a 1 70Y#tA 
X r vODD 


«8-344 












MAPMIA 


a 17ftX79 


«8-346 


♦56-4758 










MAPMX7 


a 17nT7A 


»8-348 


♦22-1677 


DC J077 




5464 




MAPHA 


a 1 70999 


#8-359 












MAPMS 


a 1 7n99A 


08-361 












MAPMf^ 


a 1 709X9 


#8-363 












MAPH7 


' 170236 


#8-365 












HADi A 




#8-350 













SEQ 0167 



33-2668 
♦33-2694 

33- 2712 

34- 2765 

35- 2864 
53-4411 

♦57-4650 
♦64-5528 



♦26-2001 
♦51-4226 



♦33-2670 
33-2695 
♦33-2714 
♦34-2767 
35-2880 

56- 4685 

57- 4851 
64-5540 



♦26-2002 
♦52-4307 



33-2671 

33- 2697 
♦34-2748 

34- 2768 
♦36-2983 

56-4686 
♦57-4857 
64-5554 



♦27-2122 
♦54-4559 



♦35-2876 ♦63-5476 ♦64-5530 



33-2674 

33- 2699 
♦34-2756 

34- 2771 
36-3010 

♦56-4694 
♦63-5459 
64-5653 



♦27-2150 
♦55-4631 

64-5656 



I 
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SYMBOL CROSS REFERENCE 
SYMBOL VALUE 



CREF V02 



SEQ 0168 



REFERENCES 





■ X r VcW 




O- 


1 1 .JIQ7 


1 3.071 
Xc~ 7 r X 


1 9-Q7Q 
X«-^ f 


1 V 

Xd 


. 1 A^7 
" XV3 r 


X J' 


- XU30 








1 A - 1 1 




d 1 . 1 U7 


VCO — X f ^3 




. 1 A1 7 
"XOX r 




. 1 mil 








*97.91 91 
t -cxcx 




*Y0.9Y90 


.9AA4 
VOX •C^O^ 


















J J"^^XO 




*^^.A630 




-Am Y 

"^OXO 














Os 99 ' X 


Ds *900X 












MAPLOl 


• 1 70204 




8-359 


• J J J» 




*63-5477 


*64 








MAPLOP 


• 170P10 


d8-284 


















MAPL03 


■ 170P14 




B>356 
















MAPL04 


■ 170220 


dB-293 


8-358 
















MAPL09 


■ 170224 




















MAPL06 


■ 170230 


M-297 


8-362 
















MAPL07 


■ 170234 


d8-299 


8-364 
















MAPLl 


• 170204 


#8-352 


















MAPLIO 


■ 170240 


48-301 


56-4700 
















MAPLll 


■ 170244 


48-303 


















MAPL12 


■ 170250 


48-305 


















MAPLl 3 


■ 170254 


48-307 


















MAPL14 


■ 170260 


48-309 


















MAPLl 5 


■ 170264 


48-311 


















MAPL16 


■ 170270 


48-313 


















MAPLl 7 


■ 170274 


48-315 


















MAPL2 


■ 170210 


48-354 


















MAPL20 


- 170300 


48-317 


















MAPL21 


■ 170304 


48-319 


















MAPL22 


■ 170310 


48-321 


















MAPL23 


■ 170314 


48-323 


















MAPL24 


■ 170320 


48-325 


















MAPL25 


■ 170324 


48-327 


















MAPL26 


■ 170330 


48-329 


















MAPL27 


■ 170334 


48-331 


















MAPL3 


■ 170214 


48-356 


















MAPL30 


■ 170340 


48-333 


















MAPL31 


■ 170344 


48-335 


















MAPL32 


• 170350 


46-337 


















MAPL33 


■ 170354 


46-339 


















MAPL34 


■ 170360 


46-341 


















MAPL35 


■ 170364 


46-343 


















MAPL 36 


■ 170370 


48-345 


•56-4757 
















MAPL37 


" 170374 


48-347 


*22- 1676 


56-4666 


56-4753 


•63-5463 










MAPL4 


■ 170220 


48-358 


















MAPL 5 


■ 170224 


48-360 


















MAPL 6 


■ 170230 


46-362 


















MAPL 7 


- 170234 


46-364 


















MAPPR 


002276 


410-734 
35-2830 


10-841 
38-3239 


21-1564 
57-4800 


22-1665 


23-1730 


24- 


1809 


25- 


1875 


MCSR 


001732 


410-602 


60-5070 


60-5079 


61-5245 


61-5246 


61- 


5256 


61- 


5262 


MEMS I Z 


002364 


410-767 


10-844 
















MMRO 


- 177572 


46-369 


*10-843 


410-645 


♦21-1565 


•21-1615 


•22- 


1666 


•22- 


1684 






♦24-1810 


♦24-1622 


•25-1877 


♦25-1915 


•26-1962 


•26- 


2016 


•27- 


2068 






* 35 -2885 


*36-3240 


•38-3257 


•57-4601 


•57-4604 










MMRl 


• 177574 


48-370 


















MMR2 


- 177576 


46-371 



















13-1066 
•26-1973 
•36-2996 

57-4646 



13-1067 
•26-2000 
•36-3006 
•61-5281 



26-1960 27-2067 



•23-1731 •23-1756 
•27-2159 •35-2631 



I 



N13 
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MACRO ON 29-nAR-85 AT 
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PAGE 9 














SYMBOL 


CROSS REFERENCE 








/*Brf tiM'> 

CRCr V02 














SYMBOL 


VALUE 


REFERENCES 




















Mf1R3 


- 172516 


#8-372 


•10-642 


•10-846 


•21-1566 


•21-1616 


•22 


•1667 


.MM a ^ MS 

•22-1685 


•23 


•1747 






•24-1611 


•24-1623 


•25-1876 


•26-1961 


, A ^ A a AM 

•27-2119 


. M^ 

•27 


-2123 


•27-2156 


•29 


■2226 






29-2247 


•30-2319 


•30-2384 


•31-2487 


•32-2601 


•33 


-2651 


•33-2715 


•34 


-2747 






*3S-2632 


•35-2652 


•36-2980 


•38-3235 


•39-3324 


•49 


-4045 


•50-4132 


•51 


■4227 






•52-4306 


•52-4317 


•53-4432 


♦53-4441 


•53-4465 


•53 


-4474 


•54-4560 


•54 


■4569 






•55-4652 


•56-4699 


•57-4802 


A AMM 

•57-4806 


•57-4655 


•61 


W VM 

■5330 


•63-5467 


•63 


-5496 






•64-5544 




















MMVEC 


- 000250 


#8-276 




















NOABRT 


026344 


64-5560 


64-5560 


M^M KIT AM 

#64-5560 
















NOCAH 


007706 


28-2191 


#26-2195 


















NROn 


013612 


37-3091 


#37-3162 


















06 ADR 


002172 


#10-620 


36-2972 




30-2993 


Va VAAC 

36-300S 












PCR 


■ 177522 


#6-379 


•37-3069 


















PZRQ 


■ 177772 


#8-277 


•43-3723 


•43-3735 
















PIRQVE 


■ 000240 


#6-277 


•43-3713 


















PHIS 


001720 


#10-597 


•10-647 


•10-1273 


17-1323 


4 A 4 

18-1376 


19 


-1422 


^M • A £ M 

20-1460 


21 


-1543 






23-1727 


24-1796 


e3-lBo4 


O^ 4 AC 4 

20-1931 


^a 4 Aa V 
26-1963 


27 


-2063 


M^ M a MM 

27-2120 


28 


M a MM 

-2180 






30-2312 


31-2463 


32-239 / 


33-2646 


va o^aA 


35- 


■2624 


35-2633 


35 


-2639 






36-2959 


53-4492 


3 f - 4 f T»3 


aaAV 


aa ccKf 












POLY 


■ 120001 


#6-360 


37-3116 


3 ' - 3120 
















PRO 


■ 000000 


#6-277 




















PRl 


" 000040 


#6-277 




















PR2 


AMi\* MA 

" 000100 


#6-277 




















PR3 


" 000140 


#6-277 




















PP4 


■ 000200 


#6-277 




















Phi 


■ 000240 


#6-277 




















PR6 


■ 000300 


#6-277 




















PR7 


■ 000340 


#8-277 




















PS 


• 177776 


#6-277 


0-277 


















PSU 


■ 177776 


•6-277 


•40-3409 




aA va 4 o 


AaA va94 


^a f 
♦41 • 


vaa^ 
■3487 


^a 4 VCAC 
•41-3505 


. M a 

•41 


AM 

-3520 






•42-3616 


•42-3620 


•4S-3039 


•*2-303r 


•42-3032 


Aa9 
•42" 


«aca 


^ao vaaa 
•42-3669 


^a^ 
♦42 


-3671 






•43-3724 


•44 - 3786 


- 3 r 2 


m^ f - 3V39 


•4 r-3T»02 


AaA 
•4B- 


■3900 


^aa VAAA 
•48-3990 


. ^ a 

•61 


aw<^ 
-5332 


PTRN16 


001774 


#10-604 


12-966 




1 O. 1 
A7- A420 


«a 90AA 


AO 
49" 


aAa? 
■404 1 


aA aAaa 
49-408B 


SO 


-4136 






52-4301 




















PTRN6 


002024 


A# A ^ Mf 

#10-607 


12-1009 


















PURVEC 


" 000024 


#6-277 


^ « M AVI 

•10-631 


• .1U-03.1 


aC VATA 
43-30 fV 


Aac YA71 


ac 
43- 


■3B Ic 


*aK VAAA 

•43-3BBO 


^ac 
•45 


vaaa 

-3666 






•64-5569 


•64-5569 


•O*- 330» 


•0^-330Tr 


•04-330» 












ROCHR 


• 104410 


64-5574 


#64-5566 


















ROOEC 


■ 104413 


#64-5588 




















ROLIN 


• 104411 


64-5575 


64-5576 


VD4-9dOO 
















ROOCT 


• 104412 


#64-5586 




















RES TAR 


003320 


#10-646 


64-5561 


















RESVEC 


■ 000010 


#8-277 




















R6 


■1(000006 


#6-277 


•10-631 


*m avt 


1 A AVI 














R7 


••000007 


#8-277 




















SAVSO 


002616 


10-830 


•10-830 


A1A avA 


aa ccaA 


aa ccAA 
04-33BV 












SAV32 


002620 


•10-830 


#10-830 


£A ccaA 


aa ccaA 
04-3300 














SCOPE 


■ 000004 


#6-277 


11-881 


12-966 


13-1052 


14-1118 


15- 


1191 


16-1260 


17- 


■1318 






19-1420 


20-1459 


21-1541 


22-1652 


23-1725 


24- 


1796 


25-1862 


26- 


1949 






28-2178 


29-2223 


30-2310 


31-2481 


32-2595 


33- 


2644 


34-2738 


35- 


2822 






37-3062 


38-3208 


39-3321 


40-3406 


41-3464 


42- 


3609 


43-3709 


44- 


3769 






46-3912 


47-3950 


46-3960 


49-4037 


50-4129 


51- 


4207 


52-4293 


53- 


4409 



SEO 0169 



•23-1757 
•29-2230 
•34-2774 
•51-4241 
•55-4632 
•64-5526 



22-1654 
29-2225 
35-2641 



•41-3535 
•43-3721 

51-4215 



18-1374 
27-2062 
36-2958 
45-3648 
54-4544 
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CReATCD BY 
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SYMBOL 


CROSS REFERENCE 








SYMBOL 


VALUE 


REFERENCES 










50-*Oo3 


57-4793 






£.il CC1 o 

64-5519 


0#-5540 


64-5561 




■ 170014 


•0-301 








■ 17757P 


•B-c '0 








■ 177574 








one 


■ 177576 


1FO - c ' O 






on o 


■ 172516 




All .AQ3 


•11-903 

7VW 


STACK 


" W J. X w 


All 377 






START 


00P530 




A- YAQ 


•10-830 

WAV Wv^r 


STKLMT 


. 177774 


2 77 
WO -C 1 1 






SUR 






1 ft - AY 1 
lU- OOl 


•10-831 






03 f V 


OH 3D r V 


64-5570 






6A-55AQ 

000 7 


OH DD07 






000176 


W0-003 


lU- OOl 


10-836 

XV V V V 




■ OOOOOl 


AA.377 
vO -err 








■ OOOOOl 




A-277 
o-c • » 






■ OOOOOP 


AA.377 


A-277 

O — t i i 






• 000004 


AA.277 


8-277 






- 000010 


*a. J77 


a-277 




SUM 


' 000020 


AS -277 


a-277 






■ 000040 

ww^v 


M-277 

WV fc f • 


8-277 




SUM 


■ 000100 

VW A W 


•8-277 


8-277 






■ 000900 


M-277 

VV S ■ ■ 


8-277 






■ 000400 


da-277 

wv "err 


8-277 






■ OOlOOO 

VV A wv 


da-277 

wV C ■ ■ 


8-277 




SU1 


■ 00000? 

wvwc 


A8-277 






SU1 A 


■ 00 3000 

vvc wv 


•8-277 

wV ' » 






SU1 1 


> OO4000 

vv^ wv 


48-277 








■ 010000 

V A WW 


48-277 

wV C • • 








■ 020000 

VC WW 










a 040000 










■ 100000 

X wwv 


If O C ' ' 






QUP 


■ 000004 










■ 000010 

WW X V 


vo C ' ' 








- 000020 

wwtv 


vo C ' ' 








■ 0OOO40 

vv w^v 


5A-P77 

wo • C » ' 






SU6 


■ OOOlOO 








SU7 


■ 000200 

V wc w 


*A-P77 
wO " C » » 






QUA 


• 000400 
vw^ w 


AA-P77 

wO " C ' ' 






SUQ 


a 001000 
wxwv 


*A-P77 

WO C • ■ 






TRTTVr 

1 DX ■ 


a 000014 

wwx~ 


*A-P77 

wo c ' ' 






TRI HH 




c V J** 


•35-2899 

WwJ CV77 




TRl HI 




35-2853 


•35-2892 




TFST 


001 711% 
wx > xo 




*10-A'Y9 


•64-5582 






64-5654 


64-5655 


64-5656 


TTHOUT 


wc c wv 


•10-715 


10-837 


15-1202 






39-3380 








■ oo<y)60 

w /wv 


•8-277 






TQPTBL 


010564 

VX Vi^W^ 


30-2318 


•30-2403 




TOUT 


001730 

w* » 


•10-601 


*21-1S90 


21-1593 


TPVEC 


■ 000064 

V w w~ 


•8-277 






TRAPVE 


- 000034 


•8-277 


*10-831 


•10-631 
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PAGE 10 



CREF V02 



58-4891 59-4950 



SEQ 0170 



60-5063 



61-5239 



62-5366 



63-5456 



•11-907 



10-831 •10-831 
64-5574 64-5574 



•10-831 
64-5580 



10-836 
64-5580 



64-5570 
64-5580 



64-5570 
64-5580 



64-5574 



64-5574 



64-5648 64-5649 
64-5657 

16-1269 17-1343 



64-5650 
21-1563 



64-5651 
22-1686 



64-5652 

27-2092 



64-5653 

27-2156 
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SYMBOL 


CROSS REFERENCE 










SYMBOL 


VALUE 


REFERENCES 








TRTVEC 


- 000014 


*8-277 








TSTl 


003324 


•11-881 








TSTIO 


004510 


17-1324 


•18-1374 






TSTll 


004642 


18-1377 


•19-1420 






TST12 


004744 


19-1423 


•20-1459 






TST13 


005066 


20-1461 


•21-1541 






TST14 


005472 


21-1544 


•22-1652 






TST15 


005670 


22-1655 


22-1659 


•23 


-1725 


TST16 


006074 


23-1728 


23-1759 


•24 


-1796 


TST17 


006264 


24-1799 


24-1803 


24 


-1826 


TST2 


003450 


11-905 


•12-966 






TST20 


006536 


25-1865 


25-1869 


•26 


-1949 


TST21 


007136 


26-1952 


26-1954 


•27 


-2062 


TST22 


007616 


27-2097 


•28-2178 






TST23 


007726 


28-2181 


28-2184 


•29 


-2223 


TST24 


010120 


29-2226 


•30-2310 






TST25 


010600 


30-2387 


•31-2481 






TST26 


011310 


31-2566 


•32-2595 






TST27 


011452 


32-2598 


•33-2644 






TST3 


003664 


•13-1052 








TST30 


012134 


•34-2738 








TST31 


012350 


34-2741 


•35-2822 






TST32 


012772 


35-2628 


35-2887 


•36- 


-2958 


TST33 


013224 


36-2960 


•37-3062 






TST34 


013650 


37-3160 


•38-3208 






TST35 


014050 


38-3214 


•39-3321 






TSTS6 


014236 


39-3382 


•40-3406 






TST37 


014340 


•41-3484 








TST4 


004006 


•14-1118 








TST40 


014620 


•42-3609 








TST41 


015160 


•43-3709 








TST42 


015314 


•44-3769 








TST43 


015552 


44-3772 


44-3809 


•45- 


3848 


TST44 


015756 


45-3853 


45-3855 


45- 


3857 


TST45 


016050 


•47-3950 








TST46 


016130 


•48-3980 








TST47 


016230 


48-3992 


48-3994 


•49- 


4037 


TST5 


004064 


•15-1191 








TST50 


016444 


•50-4129 








TST51 


016542 


•51-4207 








TST52 


016710 


•52-4293 








TST53 


017022 


•53-4409 








TST54 


017452 


53-4493 


•54-4544 






TST55 


017616 


54-4576 


•55-4618 






TST56 


017766 


•56-4683 








TST57 


020414 


•57-4793 








TST6 


004250 


15-1229 


•16-1260 






TST60 


020766 


57-4796 


•58-4891 






TST61 


021050 


58-4909 


•59-4950 






TST62 


021154 


•60-5063 








TST63 


021570 


•61-5239 








TST64 


022334 


•62-5366 









CREF V02 



SEO 0171 



•25-1862 



45-3859 



45-3863 



45-3865 ^46-3912 
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SYMBOL CROSS REFERENCE 



SYMBOL VALUE 



TST65 

TST66 

TST67 

TST7 

TYPOS 

TYPE 



TYPOC 

TYPON 

TYPOS 

UBECT 

U6EM 

UBETST 

UF0FL6 

UFDSET 

unsiz 

UQUIET 

VALTBL 

VMKOR 

URTBUF 

•APTHO 

•ASTAT 

♦ATYC 

•ATYl 

♦ ATY3 

♦ATY4 

lAUTOB 

»BASE 

IBOAOR 



IBOOAT 



022520 
022742 
023122 
004426 
104405 
104401 



104402 
104404 
104403 
001722 
023122 
013224 
002622 
000001 
002456 
002624 
010550 
002626 
001734 
000232 
****** 
026414 
026370 
026376 
026406 
001134 
001254 
001122 



001126 



IBELL 


001170 


tCOUl 


001260 


•C0U2 


001262 


•CHARC 


024242 


•CKSUR 


024720 


KMT AG 


001100 


icns 


. 000000 


tcn4 


- 000002 


ICNTLG 


025455 



REFERENCES 

#63-545:6 

63- 5499 
«64-5S48 

16-1274 

64- 5561 
10-836 
64-5572 
64-5574 
64-5587 
64-5574 

•64-5588 
37-3092 

#10-598 
39-3383 
28-2193 

*10-830 

#8-373 

#10-791 

*10-830 

30- 2317 
10-830 

•10-603 
8-392 
64-5586 
64-5586 
•64-5586 
64-5571 
64-5580 
•9-393 
•9-393 
•9-393 
*15-1235 
25-1898 
*26-2003 
64-5649 
•9-393 
•18-1390 
*27-2108 
*30-2359 

31- 2513 
*31-2557 
*33-2692 
*54-4577 
•9-393 
•9-393 
•9-393 
•64-5571 
•64-5574 
•9-393 
•9-393 
•9-393 

64-5574 



•64-5519 

16-1291 
64-5561 
28-2191 
64-5573 
64-5574 
64-5587 
64-5587 

#64-5588 
•39-3366 
51-4213 
#37-3062 
#10-830 
10-630 
38-3225 
#10-830 
•30-2392 
10-830 
49-4046 
•8-392 

64-5586 
•64-5586 

#64-5586 
•64-5586 
•10-836 

•10-715 
•16-1288 
•25-1900 
•26-2004 
64-5650 
•12-982 
♦18-1394 
•29-2235 

30- 2360 
•31-2523 

31- 2558 
•33-2699 

64-5649 
64-5580 



•64-5571 
64-5588 

10-831 
9-393 
9-393 
#64-5574 



CREF V02 



SEO 0172 



#17-1318 
#64-5588 
28-2192 
64-5574 
64-5576 
64-5587 
64-5587 



39-3372 

63- 5462 

64- 5580 
64-5580 

10-832 

10-830 
49-4087 



37-3091 
64-5574 
64-5576 
64-5587 
•64-5588 



39-3381 
•64-5548 



64-5580 

64-5561 

•10-830 
51-4225 



37-3095 
64-5574 
64-5580 
#64-5588 



44-3771 

64-5580 
51-4242 



64-5561 
64-5574 
64-5580 
64-5589 



61-5263 

64-5580 
58-4894 



64-5561 
64-5574 
64-5587 



64-5561 
64-5574 
64-5587 



59-4958 



59-4967 



64-5571 
64-5574 
64-5587 



59-4978 



64-5574 


64-5574 


64 


-5574 


















•11-915 


•12-984 


*12 


-994 


•12 


-1007 


•12 


-1017 


•13- 


■1071 


•13- 


■1082 


•16-12'.'5 


•21-1595 


•21 


■1597 


•24 


-1828 


•25 


-1894 


•25 


■1895 


25 


-1896 


•26-1976 


26-1980 


26 


-1983 


•26 


-1984 


26 


-1990 


26 


1992 


•26- 


1993 


•26-2005 


•26-2006 


•27 


•2109 


•53 


-4454 


•53 


-4487 


•54 


■4579 


64- 


5648 


64-5653 


64-5654 


64- 


•5655 
















•12-992 


•12-1005 


•12 


•1015 


•14 


-1137 


•15 


■1211 


•15 


-1230 


•16- 


1287 


•19-1435 


•20-1475 


•21- 


-1602 


•24 


-1827 


•25- 


-1899 


•26- 


■1982 


•26- 


1992 


•29-2243 


•30-2330 


30- 


-2331 


•30-2337 


30-2338 


•30 


■2352 


30- 


2353 


•30-2368 


30-2369 


•30- 


-2375 


30 


-2376 


•31- 


-2506 


31- 


2507 


•31- 


2512 


31-2524 


•31-2529 


31- 


•2530 


•31 


■2540 


31 


■2541 


•31- 


2546 


31 


2547 


•31-2563 


31-2565 


•32- 


■2607 


•32- 


■2610 


32- 


■2611 


•33- 


■2668 


•33- 


2674 


•33-2706 


•33-2712 


•34- 


■2765 


•34- 


■2771 


•49- 


■4073 


•53- 


4452 


•53- 


4485 


64-5651 


64-5655 






















64-5580 


64-5580 






















64-5571 


•64-5571 


#64- 


5571 


















64-5588 
























10-831 


10-831 


10- 


831 


10- 


831 


10- 


831 


10-831 







9-393 



#9-393 



9-393 



9-393 



#9-393 
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SYMBOL 


CROSS REFERENCE 








CREF 


V02 










REFERENCES 












iCNTl U 


02S4S0 


64-5574 


064-5574 
















09-393 
















001175 


09-393 


28-2192 








64 


-5571 






64-5574 


64-5576 




64 


J JVV 


64 


-5580 






64-5587 














w I/Ok n 


0P4710 


64-5573 


64-5573 














001264 


•9-393 
















\/VXC WW 


#9-393 
















001310 


09-393 














▼ WOT A A 


001312 


•9-393 














▼ WOT AS 


001314 


•9-393 
















001316 


♦9-393 














• WW A~ 


001320 


•9-393 














V WOT A 


001322 


♦9-393 














V WOTK 


001270 

WAS ' V 


•9-393 














ID0U3 


001272 

WAS ' S 


•9-393 














I00U4 

• 1/1/ 


001274 


♦9-393 














V l/l/OT^ 


001276 

WAS ' W 


09-393 














I00U6 

• 1/1/ OTV 


001300 

W A «/ W 


♦9-393 














I00U7 


001302 


♦9-393 














W 1/1/ OTV 


001304 


09-393 














ID0U9 


001306 

W A www 


09-393 
















001210 

WAS A V 


09-393 
















0012S6 

W AS •/W 


09-393 
















023350 

VS w *^ V 


64-5561 


64-5561 


064-5561 










T 1/ 1 


024700 


64-5573 


064-5573 












* b>«l/ni/ 


023340 

VS J«/^w 


8-391 


10-836 


064-5561 


64 


-5580 


64 


-5580 


Vb>«l/V# 1 


023220 

VS wSS V 


10-831 


♦64-5553 


♦64-5556 


064 


-5561 






IFNULL 


023354 


064-5561 
















001220 


09-393 


10-834 


10-836 


28- 


-2187 


37 


-3086 






64-5586 
















001221 

VV ASS A 


09-393 


10-831 


64-5571 


64- 


■5571 


64 


-5586 




023164 


64-5550 


64-5552 


64-5555 


064- 


-5561 








023212 

WC *JC XCi 


♦10-831 


064-5561 


64-5561 










▼ fcOTr kU 


001103 

W A A V«# 


09-393 


64-5570 


64-5570 


64- 


-5570 


♦64 


-5570 






64-5580 
















001115 


09-393 


♦10-^31 


64-5570 


♦64- 


•5570 


64 


-5570 


1 ERROR 


025764 

WS J ' W^ 


10-831 


064-5580 












lERRPC 


001116 

W A A A W 


09-393 


♦64-5580 


♦64-5580 


64- 


■5580 


64- 


-5580 






64-5650 


64-5651 


64-5652 


64- 


■5653 


64- 


-5655 




001324 

W A </S~ 


010-393 


64-5587 












lERRTY 


026636 

VS WWwW 


64-5584 


064-5587 












IERTTL 

▼ fc" Ilk 


001112 

W A A AS 


09-393 


64-5561 


♦64-5580 


64- 


5580 


64- 


■5580 


lESCAP 


001166 


09-393 


♦10-831 


♦64-5570 


64- 


5580 


64- 


■SS80 


lETABL 

▼k 1 


001220 

W ASS V 


09-393 
















f >1324 


8-392 


09-393 












IFATAL 


001202 


09-393 


♦64-5586 












IFFLG 


026634 


*64-5586 


♦64-5586 


64-5586 


♦64- 


5586 


064- 


5586 


♦FlLLC 


001156 


09-393 


64-5571 


64-5571 


64- 


5571 






IFILLS 


001155 


09-393 


64-5571 


64-5571 










IGOAOR 


001120 


09-393 


♦13-1070 


♦13-1081 


64- 


5650 






IGOOAT 


001124 


09-393 


10-672 


♦12-983 


♦ 12- 


993 


♦ 12- 


1006 



SEQ 0173 



64-5571 
64 5580 



64-5571 
64-5587 



64-5574 
64-5587 



64-5574 
64-5587 



45-3856 64-5571 64-5580 



64-5570 

64-5570 

64-5580 
64-5656 



64 5570 ^64 5580 



64-5587 
64-5657 



64-5648 



64-5586 



64-5580 



64-5649 



64-5580 64-5580 



♦12-1016 ^14-1136 ♦15-1212 ^15-1217 



I 
I 
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SYMBOL CROSS REFERENCE 

SYMBOL VALUE REFERENCES 

•15-1218 
•20-1472 
•26-1986 
•29-2244 
•30-2379 
•31-2567 
•33-2691 
•34-2770 

IGET42 023330 »64-5561 
IGTSUR 024770 »64-5574 
IHD - 000001 8-274 
tHIBTS 000232 «8-392 
IHIOCT 025604 •64-5575 
IICNT 001104 «9-393 
IILLUP 027216 64-5589 
IINTAG 001135 «9-393 
IITEHB 001114 «9-393 
ILF 001176 #9-393 

64-5580 

ILFLG 026633 *64-5S86 
ILPAOR 001106 «9-393 
ILPERR 001110 «9-393 
IMAORl 001232 «9-393 
inA0R2 001236 «9-393 
inA0R3 001242 «9-393 
IMA0fl4 001246 »9-393 
IMAIL 001200 8-392 
IMAMSl 001230 «9-393 
tMAnS2 001234 «9-393 
tMAMS3 001240 «9-393 
IMAMS4 001244 «9-393 
IMBAOR 000234 «8-392 
IMFLG 026632 •64-5586 
IMNEU 025473 64-5574 
IMSCAO 001214 «9-393 
IMSGLG 001216 «9-393 
IMSGTY 001200 09-393 
IMSUR 025462 64-5574 
♦MTYPl 001231 #9-393 
•MTYP2 001235 #9-393 
♦MTYP3 001241 #9-393 
inTYP4 001245 #9-393 
inXCNT 023710 64-5570 
INULL 001154 #9-393 
•NUTST - 000001 #11-881 

#14-1118 
#17-1318 
#20-1459 
#23-1725 
#26-1949 
#29-2223 
#32-2595 



CREF V02 



SEQ 0174 



•16-1286 


•18-1386 


18-1388 


18-1392 


•19-1427 


19-1429 


19- 


•1433 


•20-1465 


•21-1591 


21-1600 


•22-1674 


22-1678 


•24-1819 


•25-1898 


•26- 


•1977 




26-1990 


•26-2013 


•27-2103 


•27-2104 


27-2105 


•27-2107 


•29- 


■2236 


•29-2237 


•29-2245 


•30-2322 


•30-2323 


•30-2334 


•30-2341 


•30-2356 


•30 


-2363 


•30-2372 


•31-2491 


•31-2509 


•31-2515 


•31-2526 


•31-2532 


•31-2543 


•31- 


-2549 


•31-2560 


•32-2603 


•32-2604 


•32-2613 


•33-2662 


•33-2667 


•33-2673 


•33 


-2686 


•33-2690 


•33-2697 


•33-2698 


•33-2701 


•33-2702 


•33-2710 


•33-2711 


•34 


-2757 


34-2763 


•49-4074 


•53-4453 


•53-4486 


•54-4578 


64-5649 


64-5651 


64- 


-5655 


64-5588 


64-5588 
















8-274 


8-274 
















#64-5575 


















•64-5570 


64-5570 


♦64-5570 


64-5570 


64-5570 










64-5589 


#64-5589 
















64-5574 


64-5574 


64-5574 














•64-5580 


64-5580 


64-5580 


64-5580 


64-5583 


64-5587 








64-5571 


64-5571 


64-5574 


64-5574 


64-5574 


64-5576 


64 


-5576 


64-5580 


#64-5586 


















•10-831 


•64-5570 


•64-5570 


64-5570 


64-5570 


64-5570 








•10-831 


64-5570 


•64-5570 


64-5570 


64-5570 


64-5580 








8-392 


#9-393 


10-831 


10-836 


64-5570 


64-5571 


64 


-5580 





64-5586 
#64-5574 
•64-5586 
•64-5586 
64-5586 
#64-5574 



64-5570 

64-5571 

11-881 

14-1118 

17-1318 

20-1459 

23-1725 

26-1949 

29-2223 

32-2595 



•64-5586 
64-5586 
•64-5586 



64-5570 
64-5571 
#11-881 
#14-1118 
#17-1318 
#20-1459 
#23-1725 
#26-1949 
#29-2223 
#32-2595 



#64-5586 



64-5586 •64-5586 



#64-5570 
64-5571 
#12-966 
#15-1191 
#18-1374 
#21-1541 
#24-1796 
#27-2062 
#30-2310 
#33-2644 



12-966 

15-1191 

18-1374 

21-1541 

24-1796 

27-2062 

30-2310 

33-2644 



#12-966 

#15-1191 

#18-1374 

#21-1541 

#24-1796 

#27-2062 

#30-2310 

#33-2644 



#13-1052 
#16-1260 
#19-1420 
#22-1652 
#25-1862 
#28-2178 
#31-2481 
#34-2738 



13-1052 
16-1260 
19-1420 
22-1652 
25-1862 
28-2178 
31-2481 
34-2738 



#13-1052 
•16-1260 
#19-1420 
#22-1652 
#25-1862 
#28-2178 
#31-2481 
#34-2738 



G14 
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SYMBOL CROSS REFERENCE 



SYMBOL 


VALUE 


REFERENCES 








«35-2822 


35-2822 






«38-3208 


38-3208 






«41-3484 


41-3484 






•44-3769 


44-3769 






♦47-3950 


47-3950 






«50-4129 


50-4129 






#53-4409 


53-4409 






«S6-4683 


56-4683 






#59-4950 


59-4950 






#62-5366 


62-5366 






#64-5548 


64-5548 


lOCNT 


024470 


*64-5572 


♦64-5572 


lOMOOE 


024472 


♦64-5572 


♦64-5572 


lOVER 


023636 


64-5570 


64-5570 


IPASS 


001206 


#9-393 


•10-831 






64-5561 


64-5561 


IPASTM 


000240 


#8-392 




IPOWER 


02722* 


64-5589 


•64-5589 


IPURON 


027056 


10-831 


•64-5589 


IPURHG 


027212 


#64-5589 




IPURUP 


027130 


64-5589 


•64-5589 


IQUES 


001174 


#9-393 


64-5571 






64-5576 


64-5580 


IRDCHR 


025202 


#64-5574 


64-5588 


IROOEC 


025606 


#64-5576 


64-5588 


IRDLIN 


025332 


#64-5574 


64-5588 


IRDOCT 


025504 


#64-5575 


64-5588 


IRDSZ 


- 000010 


#64-5574 


64-5574 


IRTNAD 


023352 


#64-5561 




$R2A 


> ****** 


64-5588 




ISAVRE 


- ****** 


64-5588 




ISAVR6 


027222 


*64-5589 


64-5589 


♦SCOPE 


023360 


10-831 


•64-5570 


♦SETUP 


- 000137 


#10-830 


10-830 






10-830 


•10-830 






10-831 


10-831 






10-836 


64-5561 






64-5580 




♦STUP 


- 177777 


#10-830 


•10-830 






#10-830 


•10-830 


ISVLAO 


023602 


64-5570 


•64-5570 


ISVPC 


- 000232 


#8-391 


8-391 


ISUR 


- 167400 


#8-272 


8-274 






8-275 


9-393 






11-881 


12-966 






20-1459 


21-1541 






29-2223 


30-2310 






38-3208 


39-3321 






47-3950 


48-3980 






56-4683 


57-4793 






64-5548 


64-5561 






64-5570 


64-5570 





CREF V02 










•35 2822 


•36-2958 


36 


-2958 


•36- 


-2958 


•38-3208 


•39-3321 


39 


-3321 


•39 


-3321 


•41-3484 


•42-3609 


42 


-3609 


•42- 


■3609 


•44-3769 


•45-3848 


45 


-3848 


•45- 


■3848 


•47-3950 


•48-3980 


48 


-3980 


•48- 


-3980 


•50-4129 


•51-4207 


51 


-4207 


•51 


■4207 


•53-4409 


•54-4544 


54 


-4544 


•54 


-4544 


•56-4683 


•57-4793 


57 


-4793 


•57 


-4793 


•59-4950 


•60-5063 


60 


-5063 


•60- 


-5063 


•62-5366 


•63-5456 


63 


-5456 


•63- 


-5456 


•64-5548 












•64-5572 












64-5572 


♦64-5572 


♦64 


-5572 


•64 


■5572 


64-5570 


64-5570 


#64 


-5570 






28-2185 


37-3084 


39 


-3325 


45 


-3852 


64-5561 


64-5570 


64 


-5570 


64 


-5570 


64-5589 












64-5571 


64-5574 


64 


-5574 


64 


■5574 


64-5580 












64-5588 












64-5588 
























64-5588 












♦64-5589 


♦64-5589 


#64- 


5589 






•10-830 


10-830 


•10- 


-830 


10 


■830 


10-830 


#10-830 


10 


-831 


10 


-831 


10-831 


10-831 


10- 


■831 


10- 


-831 


64-5561 


64-5570 


64- 


■5574 


64 ■ 


■5574 


10-830 


#10-830 


•10- 


-830 


10- 


-830 


10-830 


#10-830 


•10- 


•830 


10- 


830 


8-275 


8-275 


8-275 


8-275 


9-393 


9-393 


10- 


831 


10- 


831 


13-1052 


14-1118 


15- 


1191 


16- 


1260 


22-1652 


23-1725 


24- 


1796 


25- 


1862 


31-2481 


32-2595 


33- 


2644 


34- 


2738 


40-3406 


41-3484 


42- 


3609 


43- 


3709 


49-4037 


50-4129 


51- 


4207 


52- 


4293 


58-4891 


59-4950 


60- 


5063 


61- 


5239 


64-5561 


64-5561 


64- 


5561 


64- 


5561 


64-5570 


64-5570 


64- 


5570 


64- 


5570 



SEQ 0175 



•37-3062 


37- 


3062 


•37- 


3062 


•40-3406 


40- 


■3406 


•40- 


3406 


•43-3709 


43 


•3709 


•43- 


3709 


•46-3912 


46- 


•3912 


•46- 


3912 


•49-4037 


49- 


-4037 


•49- 


4037 


•52-4293 


52 


-4293 


•52- 


4293 


•55-4618 


55 


-4618 


•55- 


4618 


•58-4891 


58 


4891 


•58 


4891 


•61-5239 


61 


-5239 


•61- 


5239 


•64-5519 


64 


-5519 


•64- 


5519 


64-5549 


♦64 


-5561 


♦64- 


5561 


64-5574 


64 


-5576 


64- 


•5576 


•10-830 


10 


-830 


•10 


-830 


10-831 


10 


-831 


10 


-831 


10-831 


10 


-836 


10- 


-836 


64-5580 


64- 


-5580 


64- 


-5580 


•10-830 


•10 


-830 


10- 


-830 


•10-830 


•10- 


■830 


10- 


830 


8-275 


8-275 


8-275 


10-831 


10- 


■831 


10- 


831 


17-1318 


18- 


■1374 


19- 


1420 


26-1949 


27- 


■2062 


28- 


2178 


35-2822 


36- 


2958 


37- 


3062 


44-3769 


45- 


3848 


46- 


3912 


53-4409 


54- 


4544 


55- 


4618 


62-5366 


63- 


5456 


64- 


5519 


64-5570 


C4- 


5570 


64- 


5570 


64-5570 


64- 


5570 


64- 


5570 
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SYMBOL CROSS REFERENCE 



CREF V02 



SEQ 0176 



SYr«OL VALUE 



REFERENCES 



ISWREG 
ISURMK 



♦TESTN 
I TIMES 
tTKB 

♦ TKS 

I TMPC 



ITMPl 



♦ TN 



001222 
000300 



001204 
001164 
001146 

001144 

001160 



001162 



000070 



ITPB 

♦TPFLG 

♦ TPS 

ITRAP 

ITRAP2 

ITRP 



001152 
001157 
001150 
026772 
027014 
> 000014 



64-5570 
64-5580 
64-5580 
#9-393 

8-275 

64-5570 
«9-393 
#9-393 
#9-393 

64-5574 
#9-393 

64-5574 
*8-385 

18-1394 

35- 2878 
48-3984 

*53-4481 
•57-4809 
#9-393 
•26-2010 
53-4502 
8-274 
13-1052 
15-1229 
17- 1324 
20-1459 
22-1652 

24- 1796 

25- 1865 
#27-2062 
#29-2223 

31-2566 
34-2738 

36- 2958 
#38-3208 

41-3484 

44- 3769 

45- 3855 
47-3950 

#49-4037 

#52-4293 
55-4618 
57-4796 
60-5063 
63-5456 

#9-393 

#9-393 

#9-393 
10-831 

#64-'?588 

#64-5588 



64-5570 
64-5580 
64-5589 
10-831 
8-275 
64-5570 
64-5570 
•64-5570 
•10-831 
64-5571 
64-5574 
64-5571 
64-5574 
•8-388 
•19-1429 
•37-3071 
48-3991 
•53-4482 

57- 4857 
•21-1577 

26- 2011 
•56-4685 
#8-274 

13-1052 
16-1260 
18-1374 
20-1459 
#22-1652 

24- 1796 

25- 1869 

27- 2097 
29-2226 
32-2595 

#34-2738 
#36-2958 
38-3214 
41-3484 

44- 3769 

45- 3857 
#47-3950 

50-4129 
53-4409 
55-4618 

58- 4891 
#60-5063 
#63-5456 

64-5571 
64-5571 
64-5571 
#64-5588 
64-5588 
64-5588 



64-5570 


64 


-5570 


64 


-5570 


64 


-5570 


64- 


-5570 


64 


■5570 


64- 


5580 


64-5580 


64 


-5580 


64 


-5580 


64 


-5580 


64- 


-5580 


64- 


•SS80 


64- 


5580 


8-275 


8- 


275 


8- 


275 


8-275 


8-275 


8-275 


8-275 


64-5570 


64 


-5570 


64 


-5570 


64 


-5570 


64 


-5570 


64- 


■5570 


64- 


5570 


64-5570 


























•64-5561 


•64 


-5570 


64 


-5570 


•64 


-5570 


64 


-5570 


64 


■5570 






64-5571 


64 


-5571 


64 


-5571 


64-5574 


64 


-5574 


64 


■5574 


64- 


■5574 


64-5571 


64 


-5571 


64 


-5571 


64 




64 


-5574 


64 


-5574 


64 


5574 


64-5574 


























#9-393 


• 16 


-1268 


• 16 


-1270 


16 




16 


-1289 


18 


-1381 


18- 


•1392 


•26-1964 


26 


-2014 


27 


-2110 






29 


-2241 


•35 


■2855 


35- 


•2861 


•37-3096 


•37 


-3136 


37 


-3159 


40 


-3411 


•45 


-3870 


45 


■3886 


46 


•3919 


•53-4447 


•53 


-4448 


•53 


-4449 


S3 


■44S0 


S3 


-4453 


53 


-4454 


•53- 


•4480 


53-4483 


S3 


-4486 


53 


-4487 


•S6 


-4688 


•56 


-4691 


56 


-4739 


56- 


•4753 


•61-5245 


61 


-5262 






















21-1614 


•23 


-1742 


23 


-1760 


•26 


-197S 


26 


-1979 


26 


-1989 


•26 


•2009 


26-2014 


•27 


-2098 


27 


-2157 


•S3 


-4421 


•53 


-4499 


S3 


-4500 


53- 


-4501 


56-4768 


























11-881 


11 


-881 


#11-881 




-90S 


12 


-966 


12 


-966 


#12 


-966 


#13-1052 


14 


-1118 


14 


-1118 


#14 


-1118 


15 


-1191 


15 


-1191 


#15 


1191 


16-1260 


#16 


-1260 


16 


-1274 


16 


-1291 


17 


-1318 


17 


-1318 


#17 


1318 


18-1374 


#18 


-1374 


18 


-1377 


19 


-1420 


19 


-1420 


#19 


-1420 


19 


1423 


#20-1459 


20 


-1461 


21 


-1541 


21 


-1541 


#21 


-1541 


21 


-1544 


22 


1652 


22-1655 


22 


■1659 


23 


-1725 


23 


-1725 


#23 


-1725 


23 


-1728 


23 


-1759 


#24-1796 


24 


-1799 


24 


-1803 


24 


-1826 


25 


-1862 


25 


-1862 


#25 


-1862 


26-1949 


26 


-1949 


#26 


-1949 


26 


-1952 


26 


-1954 


27 


-2062 


27 


2062 


28-2178 


28 


-2178 


#28 


-2178 


28 


-2181 


28 


-2184 


29 


-2223 


29 


2223 


30-2310 


30- 


-2310 


#30- 


-2310 


30 


-2387 


31 


-2481 


31 


-2481 


#31 


2481 


32-2595 


#32 


-2595 


32 


-2598 


33 


-2644 


33 


-2644 


#33 


-2644 


34 


2738 


34-2741 


35- 


-2822 


35 


-2822 


#35 


-2822 


35 


2828 


35 


-2887 


36 


2958 


36-2960 


37- 


-3062 


37 


-3062 


#37 


-3062 


37- 


-3160 


38 


-3208 


38- 


•3208 


39-3321 


39- 


-3321 


#39 


-3321 


39 


-3382 


40- 


-3406 


40 


-3406 


#40- 


-3406 


#41-3484 


42- 


•3609 


42 


-3609 


#42 


-i609 


43- 


-3709 


43 


-3709 


#43- 


3709 


#44-3769 


44- 


•3772 


44 


-3809 


45 


-3848 


45 


■3848 


#45 ■ 


-3848 


45 


3853 


45-3859 


45- 


•3863 


45 


-3865 


46 


-3912 


46- 


•3912 


#46 


■3912 


47- 


3950 


48-3980 


48- 


-3980 


#40- 


-3980 


48 


3992 


48 


-3994 


49- 


-4037 


49- 


4037 


50-4129 


#50- 


4129 


51 


■4207 


51- 


-4207 


#51 


-4207 


52 


•4293 


52- 


4293 


53-4409 


#53- 


-4409 


53 


-4493 


54 


-4544 


54 


-4544 


#54- 


-4544 


54- 


4576 


#55-4618 


56- 


•4683 


56 


-4683 


#56 


-4683 


57- 


-4793 


57- 


-4793 


#57- 


4793 


58-4891 


#58- 


-4891 


58- 


-4909 


59- 


-4950 


59- 


•4950 


#59- 


•4950 


60- 


5063 


61-5239 


61- 


•5239 


#61- 


■5239 


62- 


-5366 


62- 


•5366 


#62- 


■5366 


63- 


5456 


63-5499 


64- 


5519 


64- 


•5519 


#64- 


■5519 


64- 


5548 


64- 


•5548 


#64- 


5548 


64-5571 


64- 


5571 






















64-5571 


64- 


5571 






















64-5571 


64- 


5571 






















64-5588 


64- 


5588 


64- 


5588 


#64- 


5588 


64- 


5588 


64- 


5588 


64- 


5588 
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SYMBOL CROSS REFERENCE CREF V02 



SYMBOL 


VALUE 


REFERENCES 


















64-5588 


#64-5588 


64 


-5588 


64 


5588 








64-5588 


64-5508 


#64 


-5588 


64 


-5588 








64-5588 


64-5588 


64 


-5588 


#64 


-5588 








64-5588 


64-5588 


64 


-5588 


64 


■ 5588 








#64-5588 


64-5588 


64 


-5588 


64 


■5588 








64-5588 


#64-5588 










ITRPAO 




027026 


64-5588 


#64-5588 










ITSTM 




000236 


#8-392 












ITSTNn 




001102 


#9-393 


*64-5561 


64 


-5570 


64- 


■5570 








64-5570 


64-5570 


64 


-5570 


64- 


■5580 


♦TTYIN 




025440 


64-5574 


64-5574 


64 


■5574 


#64- 


■5574 


ITYPSN 


■ 


****** 


64-5588 












1 TYPOS 




024474 


#64-5573 


64-5588 


64 


-5588 






ITYPE 




023712 


#64-5571 


64-5586 


64 


-5588 


64- 


■5588 


ITYPEC 




024124 


64-5571 


64-5571 


64 


•5571 


#64- 


•5571 


ITYPEX 




024244 


64-5571 


64-5571 


#64 


-5571 






♦TYPOC 




024272 


#64-5572 


64-5588 


64 


-5588 






ITYPON 




024306 


64-5572 


#64-5572 


64 


■5588 






1 TYPOS 




024246 


#64-5572 


64-5588 










lUNIT 




001212 


#9-393 












lUNZTM 




000242 


#8-392 












lUSUR 




001224 


#9-393 












♦VECTl 




001250 


#9-393 












♦VECT2 




001252 


#9-393 












IXOFF 


■ 


000023 


64-5571 


64-5571 










IXON 


■ 


000021 


64-5571 


64-5571 


64- 


■5574 






♦XTSTR 




023400 


#64-5570 












IIGET4 




000000 


#64-5561 


64-5561 










♦OFILL 




024471 


*64-5572 


*64-5572 


64- 


■5572 


#64- 


5572 


I40CAT 


■ 


****** 


64-5570 


64-5580 










.lASTA 


■ 


****** 


64-5586 


64-5586 










.IX 


■ 


000232 


#8-392 


8-392 











SEO 017/ 



64 


-5588 


64 


-5588 


#64 


-5588 


64 


-5588 


64 


-5588 


64 


-5588 


64 


-5588 


64 


-5588 


#64 


-5588 


64 


-5588 


64 


-5588 


64 


-5588 


64 


-5588 


64 


-5588 


•64 


•5588 


#64 


-5588 


64 


-5588 


64 


-5588 


64 


-5588 


64 


-5588 


64 


-5588 


#64 


-5588 


64 


-5588 


64 


-5588 


64 


•5588 


*64 


-5570 


64 


-5570 


64 


-5570 


64 


-5570 


64 


-5570 


64 


5580 


64 


-5580 


64 


-5582 











64-5574 
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MACRO CROSS REFERENCE 



CREF V02 



SEO 0176 



MACRO NAME 

COMMEN 

ENOCOM 

ENDPAS 

ESCAPE 

GETPRZ 

GETSUR 

HOB 

MULT 

NEUTST 



POP 

PUSH 

REPORT 
SAVEMT 
SETPRI 
SETTRA 

SETUP 
SKIP 



SLASH 
STARS 



SURSU 

TRMTRP 

TYPBIN 

TYPOEC 

TYPNAM 

TYPNUM 

TYPOCS 



REFERENCES 

#8-277 
08-277 
M-261 
•8-277 
•8-277 
•8-277 
•8-249 
•8-277 
•8-277 

20- 1459 
30-2310 
40-3406 
50-4129 
60-5063 

•8-247 
64-5589 

•8-247 
64-5589 

•8-277 

#10-830 

•8-277 

•64-5588 
6^-5588 

•8-277 

•8-247 

21- 1544 

26- 1952 
35-2828 
45-3857 

63- 5499 
•8-277 
•8-277 

12-966 
17-1318 

22- 1652 

27- 2062 
32-2595 
37-3062 
42-3609 
47-3950 
52-4293 
57-4793 
62-5366 

64- 5571 
64-5586 

•8-277 
•64-5588 
♦8-277 
•8-277 
•8-277 
•8-277 
•8-277 



64-5561 



•10-836 
64-5570 

11-881 

21- 1541 
31-2481 
41-3484 
51-4207 
61-5239 

•8-277 

•8-277 
64-5589 

10-830 

64-5588 
64-5588 
10-831 
•8-277 

22- 1655 
26-1954 
35-2887 
45-3859 



8-391 
12-966 
17-1318 
22-1652 
27-2062 
32-2595 
37-3062 
42-3609 
47-3950 
52-4293 
57-4793 
62-5366 
64-5572 
64-5587 
•10-831 



64-5561 
10-836 



10-836 



12- 


-966 


13- 


-1052 


14 


-1118 


15- 


■1191 


16- 


-1260 


17 


■1318 


18- 


■1374 


19- 


1420 


22- 


-1652 


23- 


-1725 


24 


-1796 


25- 


■1862 


26 


-1949 


27- 


■2062 


28- 


■2178 


29- 


2223 


32- 


-2595 


33 


-2644 


34 


-2738 


35- 


■2822 


36 


-2958 


37- 


■3062 


38- 


■3208 


39- 


3321 


42- 


■3609 


43 


■3709 


44 


-3769 


45- 


3848 


46 


-3912 


47- 


■3950 


48- 


■3980 


49- 


4037 


52- 


-4293 


53- 


■4409 


54 


-4544 


55- 


4618 


56 


-4683 


57- 


■4793 


58- 


■4891 


59- 


4950 


62 


-5366 


63- 


5456 


64 


-5519 


64- 


5548 


















10- 


-747 


10- 


■822 


64 


-5573 


64- 


■5575 


64 


-5576 


64 


5586 


64 


■5586 


64- 


SS89 


10- 


■734 


10- 


■817 


64 


-5573 


64- 


•5575 


64 


-5576 


64 


■5586 


64 


SS86 


64- 


5586 


64- 


5588 


64- 


5588 


64 


-5588 


64- 


5588 


64 


-5588 


64- 


-5588 


64 


5588 


64- 


5588 



11-905 

22-1659 

27-2097 

36-2960 

45-3863 



8-392 

13-1052 

18-1374 

23-1725 

28-2178 

33-2644 

38-3208 

43-3709 

48-3980 

53-4409 

58-4891 

63- 5456 

64- 5573 
64-5588 
10-831 



64-5561 



15-1229 
23-1728 
28-2181 
37-3160 
45-3865 



8-392 

13-1052 

18-1374 

23-1725 

28-2178 

33-2644 

38-3208 

43-3709 

48-3980 

53-4409 

58-4891 

63- 5456 

64- 5574 
64-5589 



16-1274 
23-1759 
28-2184 
38-3214 
48-3992 



8-392 

14-1118 

19-1420 

24-1796 

29-2223 

34-2738 

39-3321 

44-3769 

49-4037 

54-4544 

59-4950 

64-5519 

64-5574 

64-5589 



16-1291 
24-1799 
29-2226 
39-3382 
48-3994 



9-393 

14-1118 

19-1420 

24-1796 

29-2223 

34-2738 

39-3321 

44-3769 

49-4037 

54-4544 

59-4950 

64-5519 

64-5574 



17-1324 
24-1803 
30-2387 
44-3772 
53-4493 



9-393 

15-1191 

20-1459 

25-1862 

30-2310 

35-2822 

40-3406 

45-3848 

50-4129 

55-4618 

60-5063 

64-5548 

64-5574 



18-1377 
24-1826 
31-2566 
44-3809 
54-4576 



9-393 

15-1191 

20-1459 

25-1862 

30-2310 

35-2822 

40-3406 

45-3848 

50-4129 

55-4618 

60-5063 

64-5548 

64-5575 



19-1423 
25-1865 
32-2598 
45-3853 
57-4796 



11-881 

16-1260 

21-1541 

26-1949 

31-2481 

36-2958 

41-3484 

46-3912 

51-4207 

56-4683 

61-5239 

64-5561 

64-5576 



20-1461 
25-1869 
34-2741 
45-3855 
58-4909 



11-881 

16-1260 

21-1541 

26-1949 

31-2481 

36-2958 

41-3484 

46-3912 

51-4207 

56-4683 

61-5239 

64-5570 

64-5580 
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MACRO CROSS REFERENCE 



MACRO NAME 


REFERENCES 




TYPOCT 


#8-277 


64-5574 


TYPTXT 


#8-277 


64-5561 


IA80RT 


#64-5580 


64-5580 


MCMRE 


♦8-393 




MCMTM 


♦8-393 


9-393 


MESCA 


♦8-277 




MNEUT 


♦8-277 


11-881 




20-1459 


21-1541 




30-2310 


31-2481 




40-3406 


41-3484 




50-4129 


51-4207 




60-5063 


61-5239 


MSET 


#64-5588 


64-5588 




64-5588 


64-5588 


MSETM 


#10-831 


10-831 


MSKZP 


#8-277 


11-905 




22-1655 


22-1659 




26-1954 


27-2097 




35-2887 


36-2960 




45-3859 


45-3863 


.EOUAT 


#8-244 


8-277 


.HEADE 


#8-244 


8-274 


.Kill 


#8-247 


8-278 


.SETUP 


#8-244 


10-830 


. SURHI 


#8-244 


8-275 


. SURLO 


#8-244 


#8-275 


. »ACT1 


#8-243 


8-391 


. lAPTB 


#9-393 


9-393 


. lAPTH 


#8-243 


8-392 


. »APTY 


#8-243 


64-5586 


. »CATC 


#8-244 


8-383 


. ICMTA 


#8-245 


8-393 


. lEOP 


#8-245 


64-5561 


. lERRO 


#8-245 


64-5580 


. lERRT 


#8-245 


64-5587 


. IPOUE 


#8-246 


64-5589 


. IRDOE 


#8-247 


64-5576 


. IROOC 


#8-247 


64-5575 


. IREAO 


#8-246 


64-5574 


.ISAVE 


#8-246 




.ISCOP 


#8-245 


64-5570 


.ISIZE 


#8-247 




. »TRAP 


#8-246 


64-5588 


. ITYPO 


#8-246 


64-5573 


.♦TYPE 


#8-245 


64-5571 


.♦TYPO 


•a -246 


64-5572 



64-5587 


64- 


-5587 


























64-5561 






























9-393 






























12-966 


13- 


-1052 


14- 


1118 


15 


-1191 


16- 


1260 


17- 


•1318 


18- 


1374 


19- 


1420 


22-1652 


23- 


-1725 


24- 


1796 


25 


-1862 


26- 


1949 


27- 


•2062 


28- 


•2178 


29- 


2223 


32-2595 


33- 


■2644 


34- 


2738 


35 


-2822 


36- 


2958 


37- 


•3062 


38- 


•3208 


39- 


3321 


42-3609 


43- 


•3709 


44- 


3769 


45 


-3848 


46- 


3912 


47- 


-3950 


48- 


•3980 


49- 


4037 


52-4293 


53- 


•4409 


54- 


4544 


55 


-4618 


56- 


4683 


57- 


•4793 


58- 


4891 


59- 


4950 


62-5366 


63- 


5456 


64- 


5519 


64 


-5548 


















64-5588 


64- 


5588 


64- 


5588 


64 


-5588 


64- 


5588 


64- 


-5588 


64- 


•5588 


64- 


5588 


15-1229 


16- 


1274 


16- 


1291 


17 


-1324 


18- 


•1377 


19 


-1423 


20 


1461 


21- 


1544 


23-1728 


23- 


1759 


24- 


1799 


24 


-1803 


24- 


1826 


25- 


-1865 


25 


■1869 


26- 


1952 


28-2181 


28- 


2184 


29- 


2226 


30 


-2387 


31- 


2566 


32- 


■2598 


34 


■2741 


35- 


2828 


37-3160 


38- 


3214 


39- 


3382 


44 


■3772 


44- 


3809 


45- 


■3853 


45 


•3855 


4S- 


3857 


45-3865 


48- 


3992 


48- 


3994 


53 


-4493 


54- 


4576 


57- 


■4796 


58 


■4909 


63 


5499 



8-276 



